Skip to main content

AccessTr.neT


Döngüde Son Satırı Hücre İçin Belirtmek

Döngüde Son Satırı Hücre İçin Belirtmek

Çözüldü #1
iyi günler

LastRow = Sheets("Colors").Cells(Rows.Count, "A").End(xlUp).Row

 For i = 1 To LastRow
            .AddItem Sheets("Colors").Range("B1:B100").Cells(i, 1).Value
            .List(.ListCount - 1, 1) = Sheets("Colors").Range("A1:A100").Cells(i, 1).Value
            .List(.ListCount - 1, 2) = .List(.ListCount - 1, 0) & vbTab & .List(.ListCount - 1, 1)
        Next i


bu kodda döngü lastrow a kadar ama 
Range("B1:B100")
100 de bitiyor bunu nasıl yazacağız mesela şöyle mi olacak
Range("B1:B" & LastRow)
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Döngüde Son Satırı Hücre İçin Belirtmek - Yazar: accessman - 10/01/2020, 17:15