03. september 2001 - 14:17Der er
15 kommentarer og 1 løsning
gå til næste tomme celle
Jeg har følgende makro som indsætter en række værdier i et andet ark hvordan definerer jeg at hvis der er værdier i A3 så skal værdien indsættes i cellen neden under altså A4 osv.osv da der er retmange er det ikke en god ide at at henvist fra A3 til A65000 der er en komando til næste tomme celle i kolone men jeg kan ikke huske den. Sheets(\"INDTASTNINGS ARK\").Select Range(\"S1\").Select Application.CutCopyMode = False Selection.Copy Sheets(\"DATABASE\").Select Range(\"A3\").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False mvh Lillejens
Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
Lillejens >> For at det virker på andre kolonner end kolonne A, skal du huske at rette i linjen: While Cells(x, 1).Value <> \"\" 1-tallet skal udskiftes med det korrekte nummer på kolonnen (1 svarer til kol. A, 2 svarer til kol. B, osv.)
lillejens>> test lige denne her. Burde kunne erstatte din makro Sub Macro1() Sheets(\"INDTASTNINGS ARK\").Select Range(\"S1:S26\").Select Selection.Copy Sheets(\"DATABASE\").Select Range(\"A65536\").End(xlUp).Select Selection.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=True Range(\"D14\").Select End Sub
Sub Macro1() Dim rCell As Range Dim iRow As Integer, iX As Integer Worksheets(\"DATABASE\").Select Range(\"A65536\").End(xlUp).Select iRow = ActiveCellse.Row
For Each rCell In Worksheets(\"INDTASTNINGS ARK\").Range(\"S1:S26\") iX = iX + 1 Worksheets(\"DATABASE\").Cells(iRow + 1, iX) = rCell Next rCell
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.
