Çoklu Eğer Makrosu.

[akara]

Çoklu eğer Makrosu
C Hüsresine Stok adını yazınca, B Hücresine o Stokun Barkodunu otomotik yazsın.
Eğerle yaptım ama çok uzun formül oluyor ve çok çok yavaşlıyor makine;
bu formülü MAKRO ile yapabilirmiyiz. ?

Şimdiden ilginize teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları "DATA" sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Dim Bul As Range
    If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
    If Target.Row < 3 Then Exit Sub
    
    If Target.Value = "" Then
        Cells(Target.Row, "B") = ""
    Else
        Set Bul = Range("IV:IV").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not Bul Is Nothing Then
            Cells(Target.Row, "B") = Cells(Bul.Row, "IU")
        Else
            Cells(Target.Row, "B") = ""
        End If
    End If
Son:
End Sub

 

[akara]

Çok Teşekkür Ederim.
Ellerin dert görmesin. Süper tam istediğim gibi. ALLAH RAZI OLSUN.

 

[akara]

Sayın hocam Aynı işlemin tersini yapmak istedim Ama bir türlü beceremedim.
Yani (B) hücresine Barkod numarasını yazınca (c) hücresine Ürün adını otomatik yazsın.
İlginize şimdiden teşekkür ederim.

 

[İhsan Tank]

Sayın hocam Aynı işlemin tersini yapmak istedim Ama bir türlü beceremedim.
Yani (B) hücresine Barkod numarasını yazınca (c) hücresine Ürün adını otomatik yazsın.
İlginize şimdiden teşekkür ederim.

merhaba
sayfadaki kodu bununla değiştirin

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ts
ts = Target.Row
If Intersect(Target, Range("B3:B65536")) Is Nothing Then Exit Sub
Cells(ts, "C") = WorksheetFunction.VLookup(ts, _
Range("IU3:IV65536"), 2, 0)
End Sub

 

[akara]

Sayın; İhsan bey İlginize ve alakanıza çok teşekkür ederim. ALLAH RAZI OLSUN.

(Makro hatalı) Barkod numarası aynı, fakat Stok isimlerini sıradan yazıyor hocam.

Ekte açıklamasını yaptım.

 

[İhsan Tank]

Sayın; İhsan bey İlginize ve alakanıza çok teşekkür ederim. ALLAH RAZI OLSUN.

(Makro hatalı) Barkod numarası aynı, fakat Stok isimlerini sıradan yazıyor hocam.

Ekte açıklamasını yaptım.

merhaba
kod'u bununla değiştirir misiniz

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ts
ts = Target.Row 'hareket gören satır
If Intersect(Target, Range("B3:B65536")) Is Nothing Then Exit Sub 'hangi aralıkta çalışmasını istiyorsak
Cells(ts, "C") = WorksheetFunction.VLookup(Cells(ts, "B"), _
Range("IU3:IV65536"), 2, 0) ' C sütuna düşeyara / Vlookup ile veri alma B sütununa göre
End Sub

kod'u kopyaladığınızda yeşil olan yerleri okuynuz açıklama için

 

[akara]

Sayın İhsan Bey,

ÇOK TEŞEKKÜR EDERİM. ALLAH RAZI OLSUN. SAĞOLUN.

Şu sözüde unutmamak gerekir.
Bana bir harf öğretenin 40 yıl kölesi olurum. (HZ.ALİ).

 

[İhsan Tank]

Sayın İhsan Bey,

ÇOK TEŞEKKÜR EDERİM. ALLAH RAZI OLSUN. SAĞOLUN.

Şu sözüde unutmamak gerekir.
Bana bir harf öğretenin 40 yıl kölesi olurum. (HZ.ALİ).

rica ederim
desene ben daha çok köle olurum
:yazici: