Eu tenho uma tabela assim:
opg nr..... ansvar.......status......færdig
1 ..........Flemming .. Opstart.. ....10
2...........Daniel .....I gang....... 30
3 ......... Kasper .....I gang .......70
As últimas 3 colunas são listas suspensas.
Eu tenho um botão com esta macro:
Dim row
row = InputBox("Row number below which new row will be inserted", "Input row number")
If Not row = vbNullString Then
ActiveSheet.Range("A" & row).EntireRow.Insert
End If
Se eu inserir na linha 4, ela funcionará bem, mas se eu inserir na linha 2, não obtenho a lista dropDown na coluna 2-4 na linha inserida.
Alguém pode me ajudar?