Er ikke helt sikker på hvad du vil, men måske kan du lave noget der ligner dette. Dim tal as integer tal = 1 for i = 1 to tal worksheets("ark hvor data skal hen").cells(19,i).value = worksheets("ditark").cells(19,i).value i = i + 3 next
Dim tal As Integer Private Sub Worksheet_Activate() Dim tal As Integer tal = 256 For i = 1 To tal If Worksheets("Sheet1").Cells(19, i) = 0 Then 'do nothing Else Worksheets("Sheet2").Cells(19, i).Value = Worksheets("Sheet1").Cells(19, i).Value End If i = i + 3 Next End Sub
er prøvet, men der kommer ikke nogle data til Sheet2
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.