Kopyalama

[hlojan]

Merhaba

Range("b1:b1000").Copy
Range("c1").PasteSpecial xlPasteValues
Application.CutCopyMode = False

ile kopyalıyorum

Range("C1:C300").End(xlDown).Row

ile ilk dolu hücreyi bul diyorum

B sütununda formül ile olan boş "" olan hücreleri c ye kopyaladığından Range("C1:C300").End(xlDown).Row ile boş hücreyi buluyor.

Manual el ile ctrl + up down yaptım veri varmış gibi davranıyor

For i to 300
range c = range b
next

Yaptım çok uzun sürüyor. Yardım edermisiniz. İlk dolu hücreyi nasıl bulabilirim

 

[Korhan Ayhan]

Siz C1:C300 arasında ilk dolu hücreyi mi, yoksa ilk boş hücreyi mi bulmak istiyorsunuz?

 

[hlojan]

Dolu

 

[Korhan Ayhan]

Kendinize uyarlarsınız.

Option Explicit

Sub Ilk_Bos_Satir()
    MsgBox Evaluate("MIN(IF(C1:C300="""",ROW(C1:C300)))")
End Sub

Sub Ilk_Dolu_Satir()
    MsgBox Evaluate("MIN(IF(C1:C300<>"""",ROW(C1:C300)))")
End Sub

 

[hlojan]

Teşekkürler oldu