Üç bölüme veri aktarımı yapmak hakkında

@emre67z

Yanlış anlamadıysam, G, I ve K sütunlarındaki veriler hazır ve siz bunların sağındaki hücrelere,
sicil bilgilerinden isimlerin bulunup / karakteriyle birleştirilerek H, J, L sütunlarına yazdırmak istiyorsunuz.

Eğer durum/istek böyleyse şu kodu kullanabilirsiniz.

Ömer bey merhaba,

Ömer BARAN' Alıntı:

@emre67z

Yanlış anlamadıysam, G, I ve K sütunlarındaki veriler hazır ve siz bunların sağındaki hücrelere,
sicil bilgilerinden isimlerin bulunup / karakteriyle birleştirilerek H, J, L sütunlarına yazdırmak istiyorsunuz.

Eğer durum/istek böyleyse şu kodu kullanabilirsiniz.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(15 satır)

Genişletmek için tıklayın ...

Teşekkürler Bey, buton ile senkronize ederek güzel bir çalışma elde ettim.
Bir ricam daha olacak sizlerden.

@cakarem hocamın geçmişte yardımcı olduğu bir makro işlemi. Hücrenin içeriğinde herhangi bir değişiklik yapıldığında anında değişiklik yapıyor.
Sizin çalışmanızıda buna benzetebilme durumumuz var mıdır? Yüzlerde değişiklik yapma durumu olabilir her sefer makroyu çalıştır demek zaman kaybı oluyor. 1200 satır olduğu için uzun sürüyor malesef(1200*3)
Başında bu hususu belirtmediğim için kusura bakmayın. Zaman ayırdığınız için teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
deger = "": satir = Target.Row
If Target.Column = 5 Then
For Each i In Split(Target.Value, ",")
If Not Sayfa1.Range("D:D").Find(What:=i, LookAt:=xlWhole) Is Nothing Then
deger = deger & "," & Sayfa1.Cells(Sayfa1.Range("D:D").Find(What:=i, LookAt:=xlWhole).Row, 3)
End If
Next i
Sayfa2.Cells(satir, 6) = Mid(deger, 2, Len(deger))
End If
End Sub

Konu: VERİ2 dosyası.

@emre67z

Veri sayfasında G, I ve K sütunu hücrelerindeki veriler elle yazılacaksa;
(veriler zaten hazırsa, mevcut veriler için önceki cevabımdaki kodu kullanmalısınız)
alt taraftan Veri sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde karşınıza gelecek
VBA ekranında sağdaki alana aşağıdaki kodu yapıştırın. G, I ve K sütunu hücrelerine veri yazdığınızda veya sildiğinizde
gerekli işlem otomatik olarak yapılır.

Yorumunuzu görüp beğenmiştim ancak yeni dönüş yapabildim,
Teşekkür ederim çok işime yaradı.