Birleştirerek Aktarma

[EKREM1661]

Saygıdeğer tüm arkadaşlarımıza selamlar..!
İlişikte verilen dosyada;
(Sayfa1 C11:E41) aralığındaki veriler, aralarında "-" olmak suretiyle karşılıklı birleştirilerek;
(Sayfa2 F11:F41) aralığına aktarılması lazım..

 

[Ayhan Ercan]

Merhaba Sn EKREM1661

Ek Dosyayı İnceleyiniz..

Sub aktar()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
    For i = 11 To 41
        s2.Cells(i, 6).Value = s1.Cells(i, 3).Value & " - " & s1.Cells(i, 4).Value _
        & " - " & s1.Cells(i, 5).Value
    Next
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[Skorpiyon]

Sayın EKREM1661,

Aşağıdaki kodu bir butona bağlayın.

Sub Düğme1_Tıklat()
For a = 11 To 41
Sheets("Sayfa2").Cells(a, 6).Value = Cells(a, 3) & " - " & Cells(a, 4) & " - " & Cells(a, 5)
Next
MsgBox "İşlem Tamam"
End Sub

 

[EKREM1661]

Çok kıymetli; Sayın Ayhan Ercan ve Sayın Şaban Sertkaya verdiğiniz her iki kod, gayet pratik ve seri çalışıyor.. (makro kaydet yöntemiyle çok dolaşmalı oluyordu) Şimdi çok güzel oldu.. Ellerinize ve bilginize sağlık diyorum ve hoşça kalın, iyi çalışmalar..

 

[Ayhan Ercan]

Çok kıymetli; Sayın Ayhan Ercan ve Sayın Şaban Sertkaya verdiğiniz her iki kod, gayet pratik ve seri çalışıyor.. (makro kaydet yöntemiyle çok dolaşmalı oluyordu) Şimdi çok güzel oldu.. Ellerinize ve bilginize sağlık diyorum ve hoşça kalın, iyi çalışmalar..

Zaten Sn Şaban Sertkaya hocam ile aynı anda hemen hemen aynı kodları vermişiz.

İyi dilekleriniz için Teşekkür ederim.
İyi Çalışmalar...