Birleştir makrosu

[hakin]

Dosya ekte dir teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub BİRLEŞTİR()
    Range("A5") = Range("A1") & Range("A2")
End Sub

 

[Civan Jack]

Alternatif olarak.

Sayfanın kod kısmına yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1,A2]) Is Nothing Then Exit Sub
[A5] = [A1] & [A2]
End Sub

 

[omurkorkmaz]

bana da lazım olan kısım a1 ve a2 sütunundaki tüm verileri a3 sütünuna birleştirecek bir makro

 

[Korhan Ayhan]

Selamlar,

Lütfen konuyla ilgili küçük bir örnek dosya ekleyiniz.

bana da lazım olan kısım a1 ve a2 sütunundaki tüm verileri a3 sütünuna birleştirecek bir makro

 

[omurkorkmaz]

Selamlar,

Lütfen konuyla ilgili küçük bir örnek dosya ekleyiniz.

Örnek Dosya ektedir.

 

[Korhan Ayhan]

Selamlar,

Neden teker teker satırlara formül uyguluyorsunuz. C2 hücresine formülünüzü yazın. Daha sonra alt hücrelere ihtiyacınız kadar sürükleyin yada kopyalayın.

 

[omurkorkmaz]

Selamlar,

Neden teker teker satırlara formül uyguluyorsunuz. C2 hücresine formülünüzü yazın. Daha sonra alt hücrelere ihtiyacınız kadar sürükleyin yada kopyalayın.

Hocam office 2003 kullanıyorum 65536 satırı sürüklemektense bir makroyla işi çözebilirim diye düşündüm.

ayrıca çok fazla dosya var 551 adet 65536 satır sürükle sürükle bitmez diye düşündüm .

 

[Civan Jack]

Merhaba,
C2 hücresine =A2 & B2 formülünü yazın, formüllü olan hücreyi seçin ve aşağıdaki makroyu çalıştırın.

Sub formul_kopyala()
ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":" & ActiveCell.Offset(6553[COLOR="Red"]4[/COLOR], 0).Address), Type:=xlFillDefault
End Sub

 

[Korhan Ayhan]

Selamlar,

Bahsettiğim yöntem çok yavaş değildir. Ama ısrarla makro olsun diyorsanız aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub BİRLEŞTİR()
    With Range("C2:C65536")
        .Formula = "=A2&""" & " " & """&B2"
        .Value = .Value
    End With
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[omurkorkmaz]

Selamlar,

Bahsettiğim yöntem çok yavaş değildir. Ama ısrarla makro olsun diyorsanız aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub BİRLEŞTİR()
    With Range("C2:C65536")
        .Formula = "=A2&""" & " " & """&B2"
        .Value = .Value
    End With
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

teşekkür ederim işimi gördüm sayenizde. başka bir soruda görüşmek dileğiyle