BİrleŞtİr

[mbattal]

Arkadaşlar Merhaba,
Ek teki dosyaya bakıp yardımcı olabilirseniz çok sevinirim
Teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz.

Sub BIRLESTIR()
Set s1 = Sheets("AAA")
s1.Range("H6:H16").ClearContents
For i = 6 To 16
S = S + 1
s1.Cells(S + 5, "H").Value = Cells(i, "B").Value & s1.Cells(i, "C").Value
Next i
Set s1 = Nothing
End Sub

 

[meslan]

merhaba
Cells(i, "H").Value = (s1.[B6&C6]) 'ı aşağıdaki gibi değiştirin

Cells(i, "H").Value = (s1.Cells(i, 2) & s1.Cells(i, 3))

 

[mbattal]

Arkadaşlar çok teşekkür ederim

 

[mbattal]

Arkadaşlar
bu işlemi butona bağlamazsak ta otomatik olarak her girişte hesaplama yapmasını istersek kodları nasıl değiştirebiliriz ?

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B:C]) Is Nothing Then Exit Sub
Range("H6:H16").ClearContents
For i = 6 To 16
S = S + 1
Cells(S + 5, "H").Value = Cells(i, "B").Value & Cells(i, "C").Value
Next i
End Sub

 

[mbattal]

Sayın V.Basic For Applications,
Yardımlarınızdan ötürü çok teşekkür ederim. Verdiğiniz kodlar çalışıyor fakat ben satır sayısını 65000' e çıkardığımda hesaplaması çok uzun sürüyor bunu hızlandırabilirmiyiz ?
Tekrar teşekkürler

 

[frestylee]

MRH bu kodları innaın benim de oldukca çok işime yaradı konu açmak zorunda kalmamıs oldum,ama ben sayın n.ziya hicdurmaz abimizin kullandıgı kod iki satırı birleştirme affınıza sıgınarak üç hane ekleyebiliyormuyuz sormak istedim.

 

[Necdet]

MRH bu kodları innaın benim de oldukca çok işime yaradı konu açmak zorunda kalmamıs oldum,ama ben sayın n.ziya hicdurmaz abimizin kullandıgı kod iki satırı birleştirme affınıza sıgınarak üç hane ekleyebiliyormuyuz sormak istedim.

Deneyiniz...

 

[frestylee]

valla sayın necdet bey deniyorum ama galiba bilgilerimin sınıırı burada bitiyor.mecburen sizin bilgilerinize ihtiyac duymam gerekiyor

 

[Korhan Ayhan]

Selamlar,

Sn. mbattal,

Verilerinizi döngüye aldığınız sürece kodu fazla hızlandırabileceğinizi düşünmüyorum. En hızlı yöntem aktif hücredeki veriyi birleştiren bir kod düzenlemektir. Sizde zaten mesajınızda bu şekilde istemişsiniz. Kodu aşağıdaki şekilde düzenlerseniz. B-C sütunlarına veri girdikçe yada hücre seçtikçe birleştirme işlemi gerçekleşecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:C]) Is Nothing Then Exit Sub
    Cells(Target.Row, "H") = Cells(Target.Row, "B") & Cells(Target.Row, "C")
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [B:C]) Is Nothing Then Exit Sub
    Cells(Target.Row, "H") = Cells(Target.Row, "B") & Cells(Target.Row, "C")
End Sub

 

[Necdet]

Hücre Birleştirme

valla sayın necdet bey deniyorum ama galiba bilgilerimin sınıırı burada bitiyor.mecburen sizin bilgilerinize ihtiyac duymam gerekiyor

Merhaba,

Ekli dosyayı inceleyebilirsiniz.

Sub Birlestir()
For i = 2 To [A65536].End(3).Row
    If i = 2 Then
        Range("C2") = Cells(i, "A")
    Else
        Range("C2") = Range("C2") & ", " & Cells(i, "A")
    End If
Next i
End Sub

 

[Korhan Ayhan]

Selamlar,

Sn. frestylee,

Örnek olarak A-B-C sütunlarındaki verileri E sütununda birleştirmek istediğinizi varsayarsak aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:C]) Is Nothing Then Exit Sub
    Cells(Target.Row, "E") = Cells(Target.Row, "A") & Cells(Target.Row, "B") & Cells(Target.Row, "C")
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A:C]) Is Nothing Then Exit Sub
    Cells(Target.Row, "E") = Cells(Target.Row, "A") & Cells(Target.Row, "B") & Cells(Target.Row, "C")
End Sub

 

[frestylee]

TŞk Ederİm Arkadaslar EmeĞİnİze SaĞlik