Uzaklıkları Farklı Olan Hücrelerin Birleştirilmesi

[baydeniro]

Merhaba arkadaşlar. Bir sütunda aralarındaki uzaklık farklı olan hücrelerin başka bir hücrede makro ile birleştirilmesi mümkün mü ? Veriler A sütununda ve C sütununda üstteki verinin buluduğu satır hizasında birleşecekler.

 

[SASELSA]

Dosyanı inceledim ama hiçbirşey anlamadım. Hücreleri el ile birleştirmek mümkün. Ama makro ile birleştirmek istersen birleştireceğin hücrelerin ortak yönleri olması gerekir. Örneğin Kullanıcı isimleri aynı olan hücreleri birleştir diye. Konuyu birazdaha detaylandırırsan yardımcı olabilirim.

 

[Seyit Tiken]

Bu şekilde uyarlayınız.

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

 

[baydeniro]

Merhaba SASELSA. İlgin için çok teşekkür ederim. Evet konu biraz karışık duruyor. Tam yapmamız gereken şöyle :

Aynı kolonda birbirinden farklı içeriklerde metinler ve boş hücreler var. Bu metinlerden Taih ile başlayanlar ile Kullanıcı ile başlayanları birleştirip Tarih yazan metinin hizasında başka bir komşu hücreye kopyalamamız gerekiyor.

* İyi olan taraf; daima önce tarih ile başlayan hücre, sonra Kullanıcı ile başlayan hücre oluyor. Bu kural hiç bozulmuyor.

* Kötü olan taraf : Tarih ve Kullanıcı metinlerinin bulunduğu hücreler arasındaki uzaklıklar genelde farklı.

 

[baydeniro]

Sayın Seyit Tiken ilginiz için teşekkür ederim. Bu kod ile ilk hücre oluyor. Yalnız aynı kolonda bazen 20, bazen 600 böyle durum olacak. O zaman hücre birleştirmeleri nasıl olabilir ?

 

[baydeniro]

Arkadaşlar bu konuda bir fikri olan var mı !!!

İlginize teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre aşağıdaki kodu denermisiniz.

Sub BİRLEŞTİR()
    Columns(3).Clear
    For X = 1 To [A65536].End(3).Row
    If InStr(1, Cells(X, 1), "Tarih") > 0 Then
    For Y = X To Cells(X, 1).End(4).Row
    If InStr(1, Cells(Y, 1), "Tarih") = 0 And InStr(1, Cells(Y, 1), "Kullanıcı") > 0 Then
    Cells(X, 3) = Cells(X, 1) & " " & Cells(Y, 1)
    End If
    Next
    End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[baydeniro]

Teşekkürler

Sayın Korhan Ayhan siz yüce Allah'ın Türk milletine bir armağanısınız. Allah başararılarınızı daim etsin. Açık söyleyeyim ben bu konuyu açarken yapılabileceği konusundan tam değildim. Yani yapılamama ihtimali daha yüksek gibi geliyordu. Yani sizi tebrik ederim. Tebrik ne kelime alnınızdan öperim. Çok teşekkürler.

Şunu belirteyim ; bu kodunuz sayesinde belki 40 yıl içinde enaz 10 ağaç kurtulacak. Çünkü alacağımız çıktılarda gereksiz satıırlar ortadan kalkarak gereksiz kağıt kullanımı bir nebze olsun azalacak.

Tekrar tekrar çok teşekkürler.