Sütundaki dolu hücre seçimi

[sezgin06]

Herkese selamlar,

Örneğin "G10:G17" sütunundaki dolu olan hücrelerin satırlarının "D1017" sütunundaki verilerini, "B4" sütununa arada boşluk olmayacak şekilde yazdırmak için
nasıl bir makro gerekir.

 

[sezgin06]

"D1017" sütun aralığı

 

[Muzaffer Ali]

Merhaba.
"D10:D17" yazmak istediniz sanırım
Sorunuzu tam anlamadım ama aşağıdaki kodlardan biri sanıyorum istediğinizi karşılıyor. Deneyin.
Olmazsa daha açıklayıcı bir şekilde sorun

Sub Test_1()
    Dim Bak As Integer
    For Bak = 10 To 17
        If Not Cells(Bak, "G") = "" Then
            Range("B4") = Range("B4") & Cells(Bak, "D")
        End If
    Next
End Sub

Sub Test_2()
    Dim Bak As Integer
    Dim Say As Integer
    For Bak = 10 To 17
        If Not Cells(Bak, "G") = "" Then
            Say = Cells(Rows.Count, "B").End(xlUp).Row + 1
            If Say < 4 Then Say = 4
            Cells(Say, "B") = Cells(Bak, "D")
        End If
    Next
End Sub

 

[sezgin06]

Sayın Muzaffer Ali,

Öncelikle ilgi ve yardımınıza teşekkür ederim.
Sorumun cevabı 2. makro, yalnız tam açıklayıcı soramadığımdan çözüm biraz eksik kaldı.
Tablolar sabit yerinde ancak içerikler dinamik, makro her çalıştığında veriler topluca alt alta sıralanıyor, yenilendikçe sabit B4 hücresinden alta sıralanmalı.
Ayrıca bu veriyi başka çalışma sayfasına nasıl yazdırabilirim? Selamlar

 

[Muzaffer Ali]

Buyurun

Sub Test_2()
    Dim Bak As Integer
    Dim Say As Integer
    range("B4:B100").clearcontents
    For Bak = 10 To 17
        If Not Cells(Bak, "G") = "" Then
            Say = Cells(Rows.Count, "B").End(xlUp).Row + 1
            If Say < 4 Then Say = 4
            Cells(Say, "B") = Cells(Bak, "D")
        End If
    Next
End Sub

 

[sezgin06]

Bu kadar kısa süredeki ilgi ve emeğinize teşekkür ederim. Sağlıkla kalın...