- Katılım
- 4 Nisan 2011
- Mesajlar
- 209
- Excel Vers. ve Dili
- 2010 İNGİLİZCE
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhabalar,
ekli dosyada vb makro ile yazdırabileceğim kod cok acilen lazım, acıklama dosya icine yazılmıstır, istenen hücre dolu ise alt satırlara yazacak bos ise atlacak tsk
A kolunun karsılığı D kolonu dolu yani hücrede değer var ise altındaki bos satırlara yazdırması değilse yani,
a kolunun karsılığı D Kolonu bos ise atlayacak bisey yazmıcak dolu gördüğü yere kadar d dolu görünce olanı yazacak..
Sub Emre()
Dim i As Integer
For i = 1 To Range("A1").CurrentRegion.Rows.Count
If Cells(i, 1) = Cells(i + 1, 1) And Cells(i, 4) <> "" Then
Cells(i + 1, 4).FillDown
End If
Next i
i = Empty
End Sub