Soru MAKRO

[beratimali]

merhaba sevgili üstatlar

ekte eklemiş olduğumuz excell dosyada H;I ve J sutunların da yazmış olduğum çalışan bir formül bulunmaktadır.

fakat benim buradaki en büyük sorunum;

Bu dosyayı kullanacak kullanıcılar buradkai formülleri silebilirler.

bundan dolayı ben bu satırlardaki formülleri makro yapmak istiyorum ve ilgili makroda G sütünuna yazılacak olan veri ile çalışmasını istiyorum

değerli desteklerinizi rica ederim.

dosya ekleyemedim.

formülleri sırası ile aşağıda yazıyorum

H sütünün tamamnına işlemesi gereken formül

=EĞER(G2="";"";DÜŞEYARA(G2;DATA!J:M;2;0))

I sütünün tamamnına işlemesi gereken formül

=EĞER(G2="";"";DÜŞEYARA(G2;DATA!J:M;3;0))

J sütünün tamamnına işlemesi gereken formül

=EĞER(G2="";"";DÜŞEYARA(G2;DATA!J:M;4;0))

ilgili formülleri ilgili sütünların tamamına uygulayacak ve hemen yanındaki G sütnüna yazılacak plaka bilgi ile çalışması tetiklenecek şekilde olması gerekmektedir ilgili vba kodunun

 

[Muzaffer Ali]

Merhaba.

Bu formülün bulunduğu sayfa adını sağ tıklatıp Kod Görüntüle seçin
Açılan sayfaya aşağıdaki kodları ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        Set Bul = Worksheets("DATA").Range("J:J").Find(What:=Target.Value, LookAt:=xlWhole)
        If Bul Is Nothing Then
            Cells(Target.Row, "H") = "Bulunamadı"
            Cells(Target.Row, "I") = "Bulunamadı"
            Cells(Target.Row, "J") = "Bulunamadı"
        Else
            With Worksheets("DATA")
                Application.EnableEvents = False
                Cells(Target.Row, "H") = .Cells(Bul.Row, "K")
                Cells(Target.Row, "I") = .Cells(Bul.Row, "L")
                Cells(Target.Row, "J") = .Cells(Bul.Row, "M")
                Application.EnableEvents = True
            End With
        End If
    End If
End Sub

Eğer yapamazsanız dosyanızı https://s4.dosya.tc/ gibi bir paylaşım sitesine ekleyerek paylaşın.

 

[beratimali]

HO

Merhaba.

Bu formülün bulunduğu sayfa adını sağ tıklatıp Kod Görüntüle seçin
Açılan sayfaya aşağıdaki kodları ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        Set Bul = Worksheets("DATA").Range("J:J").Find(What:=Target.Value, LookAt:=xlWhole)
        If Bul Is Nothing Then
            Cells(Target.Row, "H") = "Bulunamadı"
            Cells(Target.Row, "I") = "Bulunamadı"
            Cells(Target.Row, "J") = "Bulunamadı"
        Else
            With Worksheets("DATA")
                Application.EnableEvents = False
                Cells(Target.Row, "H") = .Cells(Bul.Row, "K")
                Cells(Target.Row, "I") = .Cells(Bul.Row, "L")
                Cells(Target.Row, "J") = .Cells(Bul.Row, "M")
                Application.EnableEvents = True
            End With
        End If
    End If
End Sub

Eğer yapamazsanız dosyanızı https://s4.dosya.tc/ gibi bir paylaşım sitesine ekleyerek paylaşın.

Hocam cevap için çok teşekkür ederim. fakat yapamadım.

dosyayı yükledim bu dosya benim iş yükümü baya hafifletecek yardımlarınızı için şimdiden çok teşekkür ederim.

KP_TAKIP_TABLOSU.xlsx dosyasını indir - download

KP_TAKIP_TABLOSU.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

 

[beratimali]

HO




Hocam cevap için çok teşekkür ederim. fakat yapamadım.

dosyayı yükledim bu dosya benim iş yükümü baya hafifletecek yardımlarınızı için şimdiden çok teşekkür ederim.

KP_TAKIP_TABLOSU.xlsx dosyasını indir - download

KP_TAKIP_TABLOSU.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

Hocma sorun şu

kod çalışıyor fakat düşeyara kısmında sorun var. sürekli olarak bulunamadı hatası alıyorum

 

[Muzaffer Ali]

Dosyanız ekte.
Kodlar Tablo sayfasında G sütununa veri girişi yaptığınızda çalışacaktır.

KP_TAKIP_TABLOSU.xlsm dosyasını indir - download

KP_TAKIP_TABLOSU.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

 

[beratimali]

Dosyanız ekte.
Kodlar Tablo sayfasında G sütununa veri girişi yaptığınızda çalışacaktır.

KP_TAKIP_TABLOSU.xlsm dosyasını indir - download

KP_TAKIP_TABLOSU.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

Hocam g sütununa 34gf4121 yazıyorum

data sayfasına bu veriyi atıyor.

sonra g sütnün bir alt satırana geçip tekrar yazıyorum bu sefer Bulunamadı uyarısı alıyorum.

halbuki bir üst satırda bu plakayı ve bilgileri girmiştim.

alt satıra geçtiğimde bu plakayı yazdığım anda diğer verileri vermesi gerekmekteydi. orada bir hata yapıyorum.

acaba neyden kaynaklı.

çok teşekkürler

 

[beratimali]

Dosyanız ekte.
Kodlar Tablo sayfasında G sütununa veri girişi yaptığınızda çalışacaktır.

KP_TAKIP_TABLOSU.xlsm dosyasını indir - download

KP_TAKIP_TABLOSU.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

hocam eklemişssiniz görmedim

çok pardon elinize sağlık