kopiera så länge det finns ett värde, (även noll)

[Stefan Flink]

Hej.

Jag försöker få ordning på ett makro men löser inte "IF" delen. Jag har även ett bekymmer till och det är när man ska kopiera samma cell flera ggr. 

Tanken är att det kommer finnas värden att kopiera i blad1, som ska sättas in på blad2. Dessa värden finns i I23:I25 och sen har jag en datumcell i I28. Så långt inga problem, när man kommer vidare så kan det finnas värden att kopiera i J23:J25 som då även vill kopiera I28 samtidigt men då får jag upp att åtgärden fungerar inte på flera markeringar.

Mina värden kommer finnas mellan I23:I25-p23:p25, dock kommer inte alla dessa vara ifyllda varje gång så jag vill få till att man kopierar tills man kommer till en tom (blank) cell. I mitt fall så är noll ett värde som jag behöver.

 

Så här ser det ut för tillfället

 

Sub Skicka()
 '
 ' Kopiering Makro
 ' Kopierar till databas.
 '
With Sheets("Blad1")
    .Range("i23:i25, i28").Copy
    End With
    With Sheets("Blad2")
        .Cells(.Rows.Count, 2).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    End With
With Sheets("Blad1")
    .Range("j23:j25, i28").Copy
    End With
    With Sheets("Blad2")
        .Cells(.Rows.Count, 2).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    End With
    End Sub

[Stefan Flink]

Tack så mycket...

Fungerar nu som jag hade tänkt, krävdes bara lite handpåläggning från proffsen