Boş Hücreyi Bulup Veriyi Yapıştırma

[uyuzhan]

Merhabalar. Uzunca uğraştım ama olmadı.

Range("A1").Select
ActiveSheet.Next.Select
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("WMK1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Formülde yukarı tarafta problem yok.
Problem aşağıdaki kısımda.
WMK1 Sütunundaki veriler dolu olan AC sütununa değil bir sonraki boş sütun olan AD sütununa yapıştırılsın istiyorum.
Her seferinde ise kopyaladığında bir sonraki boş sütuna veri yapıştırsın istiyorum.
Aşağıdaki gibi olunca malesef hep AC ye yapıştırıyor.
Şimdiden teşekkürler.

Range("AC").Select
Selection.End(xlToLeft).Select
Range("AC").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop

 

[ÖmerFaruk]

Eğer bu kodlar hep AC ye yapıştırıyorsa
En alt satırdaki 1 yerine 2 yazabilirsiniz
ActiveCell.Offset(0, 2).Select

 

[uyuzhan]

Ömer Faruk bey olmadı malesef..

 

[ÖmerFaruk]

Yukarı taraftaki kodunuzu anlamadığım için aşağıdakini de aslında anlamadım.
Siz WMK1 olarak tanımladığınız aralığı Sayfa1 deki AC sütunundan başlayarak AC sütunu dahil boş olan ilk sütuna kopyalamak mı istiyorsunuz?

 

[uyuzhan]

WMK sütununda düşey ara ile otomatik getirilen veriler var.
wmk sütunu ac sütunundan yaklaşık 15.000 sütun sonraki sütun.
yukarıdaki formül wmk sütununa gidip o sütunda yer alan verileri kopyalıyor.
Buraya kadar sorun yok.
Makro çalışınca Kopyalanan veriler ilk boş sütun olan ac sütununa yapıştırılacak.
makro tekrar çalıştığında wmk sütununa gidip verileri kopyalacak ve kopyalanan verileri ac ye değil bir sonraki boş sütun olan ad ye yapıştırılmasını istiyorum.
Tekrar çalıştığında ise tekrar sonraki boş sütuna yapıştırılmasını...

 

[ÖmerFaruk]

Dediğinizin bire bir karşılığı bu.

    Dim hedef As Range
    Do While Not IsEmpty(hedef)
    Set hedef = hedef.Offset(0, 1)
    Loop
    hedef.PasteSpecial xlPasteAll

 

[uyuzhan]

Çok teşekkürler deneyip sonucu yazarım.

 

[uyuzhan]

çok teşekkürler Ömer Fruk bey işe yaradı. Elinize sağlık.