macro ile birleştirme hakkında!

[hurkanpisirici]

makro ile a1 ve b1 hücrelerini nasıl birleştirebilirm?

 

[mehmett]

Sub Birleştir()
[C1] = [A1] & [B1]
End Sub

 

[hurkanpisirici]

mehmet bey ilginiz için teşekkür ederim.

 

[hurkanpisirici]

ama ben devamlı aktif olmasını istiyorum mehmet bey yani hücrede değişiklik olduğu an c1 de değişsin mümkünmü?

 

[velostar]

kod sayfasına;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[C1] = [A1] & " " & [B1]
End Sub

 

[mehmett]

O zaman makroyu bir modülde değil, çalıştığınız sayfanın kod sayfasında yazacaksınız.

Aşağıdaki kodları Sayfa1'in (Sayfa1'de çalışıyorsanız) kod sayfasına kopyalayın.

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

 

[hurkanpisirici]

sayın mehmet bey ve velostar ilginize çok teşekkür ederim kolaygelsin

 

[exes]

A ve B sütununda yapılacak değişikliğe göre C sütununda birleştirme
örnek olması açısından,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$" & Target.Row Or Target.Address = "$B$" & Target.Row Then
Range("C" & Target.Row) = Range("A" & Target.Row) & " " & Range("B" & Target.Row)
End If
End Sub

 

[hurkanpisirici]

sayın exes teşekkür ederim.