Boşlukları Doldurma çok eziyetli :S

[kdr20_88]

Sayın abilerim merhaba,

Ekte bir dosya gönderdim. Dosyadaki listemde alt alta Ctrl+D ile çoğaltmak çok eziyetli oluyor. Varsa daha kolay bi yöntemi lütfen yardımcı olabilir misiniz?

 

[Murat OSMA]

Deneyiniz...

Sub Emre()
    Dim i As Integer
        For i = 2 To Range("A65536").End(3).Row
            If Cells(i, 1) = "" Then
                Cells(i, 1).Resize(, 3).FillDown
            End If
        Next i
    i = Empty
End Sub

 

[asi_kral]

Sayın abilerim merhaba,

Ekte bir dosya gönderdim. Dosyadaki listemde alt alta Ctrl+D ile çoğaltmak çok eziyetli oluyor. Varsa daha kolay bi yöntemi lütfen yardımcı olabilir misiniz?

Merhaba
Veri aralığını seçin F5 - Özel - Boşluklar - Tamam deyin. Hücreye

=A2

Yazın ve ctrl+Enter ile bitirin sonuçları gözlemleyin.

 

[kdr20_88]

Merhaba
Veri aralığını seçin F5 - Özel - Boşluklar - Tamam deyin. Hücreye

=A2

Yazın ve ctrl+Enter ile bitirin sonuçları gözlemleyin.

ama bu sadece tüm boşluklara A2 hücresindeki veriyi yazdırmaz mı?

 

[kdr20_88]

Deneyiniz...

Sub Emre()
    Dim i As Integer
        For i = 2 To Range("A65536").End(3).Row
            If Cells(i, 1) = "" Then
                Cells(i, 1).Resize(, 3).FillDown
            End If
        Next i
    i = Empty
End Sub

murat abi sql ine sağlık olduuu

 

[asi_kral]

ama bu sadece tüm boşluklara A2 hücresindeki veriyi yazdırmaz mı?

Denemeden yanıt yazmanız biraz garip geldi. Bence hiç denemeyin belki dediğiniz gibi yapar. Sonuçta siz öyle istiyorsunuz.

 

[Murat OSMA]

Rica ederim, iyi günler.