26. januar 2004 - 21:01Der er
8 kommentarer og 1 løsning
hjælp til vba-script, .autofill range som er en celle.
Hej, jeg har lidt problemer med et script jeg bruger i et regneark: Lastrow = [A6].End(xlDown).Row With [I7] .Formula = "=if(isna(VLOOKUP(A7,Dates,2,FALSE)),""Unknown"",VLOOKUP(A7,Dates,2,FALSE))" .NumberFormat = "dd/mm/yyyy" .Borders.Weight = xlThin .AutoFill Destination:=Range("I7:I" & Lastrow) End With
Først finder jeg sidste række, dette kan være fra række 7 og nedefter. Dernæst udfylder jeg datoer i cellerne fra I7 og ned til sidste celle. Dette virker fint når der er mere end 1 celle i rangen I7:I & lastrow. Hvis der kun er 1 linje får jeg en fejl når scriptet køres. Håber nogle kan se fejlen og en løsning.
eller bare indsætte on error resume next. Ved godt det er lidt billigt men..... :-)
Lastrow = [A6].End(xlDown).Row With [I7] .Formula = "=if(isna(VLOOKUP(A7,Dates,2,FALSE)),""Unknown"",VLOOKUP(A7,Dates,2,FALSE))" .NumberFormat = "dd/mm/yyyy" .Borders.Weight = xlThin On Error Resume Next .AutoFill Destination:=Range("I7:I" & Lastrow) On Error GoTo 0 End With
ok, jeg lader det ligge som det er nu, det virker jo som det skal og er samtidigt dejligt simpelt. Tak for hjælpen til jer begge.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
