dolu hücreye göre kopyala yapıştır

[lepricon]

herkese selamlar, hemen yardımınıza muhtaç olduğum sorumu soruyorum

f sütununda bulunan dolu hücrelerin 1 önceki satırının g sütununa denk gelen hücrenin seçilip (yani activecell.offset(-1, 1).select galiba) yine belirteceğimiz bir hücreye yapıştırılmasını istiyorum (bu da f sütununda dolu olan önceki hücreden bir sonraki satıra olacak). ve bu işlemi f sütununda dolu olan her hücre için yapmasını istiyorum


örnek:
f1 dolu....

f3 dolu ise g2 yi seç belirteceğim yere (h2) yapıştır.

f17 dolu ise g16 yı seç (bir önceki dolu f3 olduğundan 4. satırda (misal) h4 e yapıştır.

f25 g24 seç h18 e yapıştır

bunu tüm sütun için yapmam lazım.

yardımlariçin şimdiden teşekkür ederim iyi günler dilerim.

 

[Ömer BARAN]

Merhaba.

Sanırım istediğiniz böyle bir şey.
Belfeniz açıkken alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan
VBA ekranının sağ tarafındaki boş alana yapıştırın ve çalıştırın.
.

[FONT="Arial Narrow"]Sub ENTERESAN_AKTAR()
Range("H:H").ClearContents
For fsat = 2 To [F65536].End(3).Row
    If Cells(fsat, 6) <> "" Then Cells(Cells(fsat, 6).End(3).Row + 1, 8) = Cells(fsat - 1, 7)
Next: MsgBox "İşlem Tamamlandı."
End Sub[/FONT]