=BİRLEŞTİR( Formülü hkk,

[TiOr]

Merhaba Sn, Hocalarım,

=BİRLEŞTİR(A2;" ";G2)
(K2 Hücresinde İşlemi Gerçekleştiriyorum)

Bu şekilde 2 sütunu herhangi bir hücrede birleştiriyorum fakat 1000 ve üzeri satır olduğu için kasma yapıyor bu nedenle ilgili formülün makro koduna ihtiyacım var.
Kodda gerektiği takdirde ben değişiklik yapabiliyor olmam gerekli. Bunun sebebi A2 de olan veri bazen C2 de olabiliyor G2 de olan veri bazen J2 de olabiliyor ve birleştirme işlemini yaptığım hücre K2 olsa da bazen değişken olabiliyor yani özetle kodun içine girip gerekli alanları benim değiştirebiliyor olmam gerekli. Bu işlem her zaman olmuyor bazen program üzerinden çekilen raporlar sapıtabiliyor hücrelerin yerini değiştirebiliyor çok nadirde olsa olabiliyor.

Şimdiden destekleriniz için teşekkür eder, saygılarımı sunarım.
İyi hafta sonları dilerim.

 

[Korhan Ayhan]

Bu linkte önerdiğim gibi formülü alana uyguladıktan sonra değere çevirerek kullanabilirsiniz.

Bu tarz kodları makro kaydet yöntemini kullanarak rahatlıkla elde edip uyarlayabilirsiniz.

İki Sütun Arasındaki Farkı Kod İle Bulma

Örnek Dosyamda da açıklama yapmaya çalıştım. Yaklaşık 30 bin satırlık veri elimde mevcut ve her gün yenileniyor. İki sütun arasındaki farkı kod ile bulmak istiyorum. Formül ile dosya boyutu büyümekte ve işlemlerde kasma yapmakta olduğundan kod ile işimi daha iyi görecektir.

www.excel.web.tr

 

[TiOr]

@Korhan Ayhan Hocam,
İlgi ve dönüşünüz için teşekkür ederim.
İnanın kısa vadede sizlerden o kadar çok şey öğrendim ki anlatamam. Yani eğitim alsak ancak bu kadar olur diyebilirim.
Allah razı olsun...

Makro kaydetten bahsetmişsiniz. Ben bir çok konuda önceliğim aslında makro kaydet yolu ile işlem yapmak ama size sormak istediğim aşağıdaki gibi makro kaydettiğimde hücreye formülü işliyor durum böyle olunca bu şekilde makro kaydet işe yaramıyor özetle. Makro kaydet dediğimizde formülü hücrede göstermemesi için ne yapabilirim peki?

Şimdiden kıymetli bilgileriniz için teşekkür ederim.
Hayırlı akşamlar.

Sub Makro1()

    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-11],"" "",RC[-5])"
    Range("L3").Select

End Sub

 

[Korhan Ayhan]

Verdiğim linki incelediniz mi? Orada zaten yazım tekniği ile ilgili örnek var...

 

[TiOr]

@Korhan Ayhan Hocam,
Paylaştığınız linki bu gün formu kurcalarken görmüştüm çıkartma işlemi olduğu için dikkate almamıştım açıkçası.
Şimdi tekraren kontrol ettiğimde ve uyguladığımda hata alıyorum;
Yardımcı olabilir misiniz?

Sub Birleştir()
    With Range("L2:L" & Cells(Rows.Count, 1).End(3).Row)
        .Formula = " =BİRLEŞTİR(A2;" ";G2)"
        .Value = .Value
    End With
End Sub

 

[Korhan Ayhan]

.Formula parametresi için fonksiyonun İngilizce adını yazmanız gerekiyor.

Ayrıca VBA tarafında;

• Boşluk yazmak için 4 adet çift tırnak kullanmanız gerekiyor.
• Noktalı virgül yerine virgül kullanmalısınız.

Bu inceliklerden sonra sanırım kendiniz denemeler yaparak sonuca gidebilirsiniz.

 

[İdris SERDAR]

.

Şöyle olabilir.

Sub Birleştir()

 With Range("L2:L" & Cells(Rows.Count, 1).End(3).Row)
    .Formula = "=A2&"" ""&G2"
    .Value = .Value
End With

End Sub

.

 

[TiOr]

.

Şöyle olabilir.

Sub Birleştir()

With Range("L2:L" & Cells(Rows.Count, 1).End(3).Row)
    .Formula = "=A2&"" ""&G2"
    .Value = .Value
End With

End Sub

.

@İdris SERDAR Hocam Selam,
Çok teşekkür ederim desteğiniz için. İşlem tamamdır..

@Korhan Ayhan Hocam Size de teşekkür ederim desteğiniz için. Sizi gayet iyi anlıyorum kurcalayarak öğrensin istiyorsunuz haklısınız da ve kesinlikle katılıyorum bu yaklaşımınıza. Yaklaşık 1 saat önce yazmıştınız 1 saattir uğraşıyorum ama yapamamıştım tam size yazıyorum derken İdris hocam dönüş yapmış ve büyü bozuldu

Her iki üstadıma da teşekkür eder, hayırlı akşamlar dilerim.
Saygı ve hürmetlerimle...

 

[Korhan Ayhan]

Konuyla ilgli olduğu için paylaşmak istedim..

https://www.excel.web.tr/threads/formuelleri-makro-ile-degere-cevirme-uygulamasi.118352/

Ayrıca google araması;

Formülleri Makroya Çevirme