ara bul bulduğunu hücreye yaz

[excelin kurdu]

Merhaba;

Ekte bir dosya paylaştım. Dosya içerisinde ayrıntıları paylaştım. Sizden istediğim yardım ben sayfa 3te b hücresinde bitişik kodlar bulunuyor. Bu kodlardan herhangi birini sayfa1 de b hücresine yazınca diğer kodlarda sayfa1 de c,d,e,f... hücrelerine sırayla ayrı ayrı yazılsın ve markada a hücresine yazılsın istiyorum. Lütfen bana bu konuda yardımcı olur musunuz?


Yardımlarınız için şimdiden teşekkür eder İyi Günler Dilerim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Kod As Range, Bul As Range, Sh As Worksheet, X As Integer
    Dim Veri As Variant, Sutun As Integer, Mesaj As String
   
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
   
    For Each Kod In Intersect(Target, Range("B2:B" & Rows.Count))
        Kod.Offset(, -1).ClearContents
        Kod.Offset(, 1).Resize(1, 6).ClearContents
        Set Sh = Sheets("Sayfa3")
        Set Bul = Sh.Range("B:B").Find(Kod.Value, , , xlPart)
        If Not Bul Is Nothing Then
            Kod.Offset(, -1) = Bul.Offset(, -1)
            Veri = Split(Bul.Value, ", ")
            Sutun = 3
            For X = LBound(Veri) To UBound(Veri)
                If Veri(X) <> CStr(Kod.Value) Then
                    Cells(Kod.Row, Sutun) = Veri(X)
                    Sutun = Sutun + 1
                End If
            Next
        Else
            Mesaj = IIf(Mesaj = "", Kod.Value, Mesaj & vbLf & Kod.Value)
        End If
    Next
   
    If Mesaj <> "" Then
        MsgBox "Aşağıdaki kodlar bulunamadı!" & vbLf & vbLf & Mesaj, vbCritical
    End If
   
    Set Sh = Nothing
    Set Bul = Nothing
End Sub

 

[excelin kurdu]

Korhan bey yardımınız için teşekkürler. Kodu yapıştırdım ama çalıştıramadım. Ayrıntılı açıklayabilir misiniz?

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulamanız gerekiyor.

Sanırım siz modüle uyguladınız.

 

[excelin kurdu]

korhan bey deneme yaptım ama hata veriyor.

 

[Korhan Ayhan]

Uyguladığınız dosyayı paylaşırsanız inceleme fırsatımız olur.

 

[excelin kurdu]

az önce attığım dosya üzerinden denedim. Ona uyguluyorum ama çalıştır deyince hata veriyor.

 

[excelin kurdu]

 

[excelin kurdu]

 

[Korhan Ayhan]

En sondaki kırmızı satırı silip deneyin.

Foruma kodları eklerken sorun olmuş.

 

[excelin kurdu]

korhan bey şimdi oldu. Teşekkür ederim fakat şöyle bir sorun var. sayfa3 te b13 hücresinden herhangi bir kodu yazınca örnekte verdiğim kodun aynı sıralamasını veriyor.

 

[excelin kurdu]

b13 teki kodlar "7701472838, 7701713008, 8200367094, 8200209774, 8200655249" bunlar. Ben örnekte 8200367094 kodunu yazmıştım. Bu kodlar arasında başka bir kod yazınca mesela 7701472838 yazınca 8200367094 kodu eksik kalıyor onu göstermiyor.

 

[Korhan Ayhan]

KOD4 sütunundaki durumdan mı bahsediyorsunuz?

 

[excelin kurdu]

Tamam ona çözüm buldum. Peki bunu kendi orijinal dosyama nasıl uyarlayabilirim hangi isimleri sütunları değiştirmem gerekir.

 

[excelin kurdu]

Dosya çok büyük olduğu için çoğu yeri silmek zorunda kaldım. İlk attığım dosyadaki marka araç üreticisi olarak geçiyor kodlarda oe1 oe2 oe3 ya da oe no olarak geçiyor.

 

[Korhan Ayhan]

Bir şey sorabilir miyim?

İlk mesajınızda neden en son eklediğiniz dosyanın benzerini paylaşmadınız?

 

[excelin kurdu]

Aslında benzeri sadece sütunlar farklı. Şirket dosya paylaşımını yasakladığı için kendim dosya oluşturup gönderdim. sonra kodu düzenlerim kendim diye düşündüm ama onu da yapamadım.

 

[Korhan Ayhan]

Şimdi kodu benim düzenlememi bekliyorsunuz değil mi?

 

[excelin kurdu]

Hayır kodun mantığını anlamaya çalışıyorum ona göre kendim düzenleyeceğim.

 

[excelin kurdu]

sizden düzenlemenizi istemedim kodda kendi dosyama uyarlamak için nerelerde değişiklik yapmam gerekiyor diye sordum.