4 Sütun-1 sütun

[yst10]

Selamlar, iyi akşamlar.
4 sütun içinde yer alan bilgileri, makro ile tek bir sütuna nasıl toplayabilirim.
İlgilenenlere şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
Dim SUT As Integer
For SUT = 1 To ActiveSheet.UsedRange.Rows.Count
Cells(SUT, "A") = Cells(SUT, "B") & "  " & Cells(SUT, "C") & "  " & Cells(SUT, "D") & "  " & Cells(SUT, "E")
Next
End Sub

 

[yst10]

Sn. N.Ziya Hiçdurmaz,
Çok teşekkür ederim. Elinize sağlık.
İyi akşamlar.
Yavuz Tümer

 

[N.Ziya Hiçdurmaz]

Bişey değil

 

[yst10]

Sayın hocam,
Peki, b-c-d kolonlarındaki bilgileri, boşluksuz olarak a kolonuna ilave ederek "boşluksuz olarak" alt alta almak istersek, ve bu makroyu bir tuşa atarsak, nasıl bir kod olması gerekir?
Saygılar.

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[yst10]

4 SÜtun-1 SÜtun İÇİn Örnek

Selamlar,

Örnek dosya eklermisiniz.

Korhan bey, günaydın.
İlginize çok teşekkür ederim.
Örnek dosya ekte.
Saygılar.
Yavuz Tümer

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Listelemeyi Sayfa2 ye yapar.

Sub DÜZENLE()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    SATIR = 1
    S1.Select
    S2.[A:C].ClearContents
    For Y = 2 To 5
    For X = 2 To S1.[A65536].End(3).Row
    If Cells(X, Y) <> "" Then
    S2.Cells(SATIR, 1) = S1.Cells(X, 1)
    S2.Cells(SATIR, 2) = S1.Cells(X, Y)
    S2.Cells(SATIR, 3) = S1.Cells(1, Y)
    SATIR = SATIR + 1
    End If
    Next
    Next
    S2.Columns("A:C").HorizontalAlignment = xlCenter
    S2.Select
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[yst10]

Korhan bey, selamlar,
Ellerinize sağlık, çalışıyor. Çok teşekkür ederim. Emeğinize, kafanıza sağlık.
Sağ taraftaki kolona "C" kolonuna da sayfa1 de ait olduğu kolonun 1.satır bilgisini getirmek şansımız yok mu acaba.
İlginize tekrar teşekkür ederim. Benim için zaman ayırdığınız için de...
Yavuz Tümer

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre C sütununa istediğiniz bilgiyi zaten getiriyor. Sanırım siz farklı bir dosya üzerinde uygulamaya çalışıyorsunuz.

 

[yst10]

Korhan bey, Selam,
Haklısınız, önce yeni bir dosyada denedim o yüzden olmadı.
Evet, sorun yok, mükemmel çalışıyor. Ellerinize sağlık.
Tekrar teşekkürler.