( ActiveCell.Offset(1, 0).Range("A1").Select )

[kadira]

Arkadaşlar merhaba ben bir makro hazırladım Ek'te bir liste var

Sub Makro3()
'
' Makro3 Makro
'
' Klavye Kısayolu: Ctrl+Ü
'
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=(CONCATENATE(RC[-1],R[1]C[-1],R[2]C[-1]))"
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(3, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(3, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(3, 0).Range("A1").Select
ActiveSheet.Paste
End Sub

listede görünldüğü gibi her firma 3 satırdan oluşuyor, ben "A" Sütununda içinde "banyo" diye arama yaptığımda "b" sütnunundaki 1 satır geliyor, yani adres kısmının hepsi gelmiyor, bende birleşirtir yaparak "B" sütununda satırları birleştir yaptım, o yüzden bir makro yaptım, "b" sütununda 1-2-3 satırları 1 satıra birleştirecek 4-5-6 satırları 4 e birleştirecek bunun devam etmesini istiyorum yardımcı olabilirmisiniz

 

[Necdet]

Merhaba,

Konu başlığını sorunuzla ilişkili olarak saptayınız.

Kodda değişiklik yerine ne yapmak istediğinizi belirtiniz.

 

[kadira]

düzenledim yardımcı olabilirseniz sevirim

 

[kadira]

Tamam ben buldum arkadaşlar 37 kere bakılmış kimse bulamamış

 

[rejii]

Bende şimdi inceledim ama kimsenin çözümü bulma zorunluluğu yoktur. Siz kendi bulduğunuz çözümü burada anlatırsanız inceleyip ilgilenen insanları aydınlatmış olursunuz.