DÜŞEYARA ve Veriler Sayfasında Yoksa Ekle

[UKDEM]

Merhaba,
Ekteki dosyada İndirilecek KDV Listesi ve Veriler isimli iki çalışma sayfası var.
DÜŞEYARA ile veriler sayfasında girdiğim VERİYE karşılık gelen VERİLERİ çekebiliyorum.

Yapmak isteyipte beceremediğim ise şu:
İndirilecek KDV Listesi sayfasına eklediğim veri şu an veriler sayfasında varsa DÜŞEYARA ile gidip onu bulup getiriyor.
Peki İndirilecek KDV Listesi sayfasına eklediğim veri veriler sayfasında yoksa o veriyi gidip veriler sayfasına eklesin bunu nasıl yapabilirim??

 

[Huseyinkis]

Merhaba,
Ekteki dosyada İndirilecek KDV Listesi ve Veriler isimli iki çalışma sayfası var.
DÜŞEYARA ile veriler sayfasında girdiğim VERİYE karşılık gelen VERİLERİ çekebiliyorum.

Yapmak isteyipte beceremediğim ise şu:
İndirilecek KDV Listesi sayfasına eklediğim veri şu an veriler sayfasında varsa DÜŞEYARA ile gidip onu bulup getiriyor.
Peki İndirilecek KDV Listesi sayfasına eklediğim veri veriler sayfasında yoksa o veriyi gidip veriler sayfasına eklesin bunu nasıl yapabilirim??

Ekteki Kod Denermisiniz

Sub Bul()

For i = 5 To Sheets("İndirilecek KDV Listesi").Range("F65536").End(3).Row

Aranan = Sheets("İndirilecek KDV Listesi").Cells(i, 6).Value
TC = Sheets("İndirilecek KDV Listesi").Cells(i, 7).Value
Hizmet = Sheets("İndirilecek KDV Listesi").Cells(i, 8).Value

Set RLK1 = Sheets("Veriler").Range("A2:A65536")
RLK = WorksheetFunction.CountIf(RLK1, Aranan)

Satır = Sheets("Veriler").Range("a65536").End(3).Row + 1

If RLK = 0 Then
Sheets("Veriler").Cells(Satır, 1).Value = Aranan
Sheets("Veriler").Cells(Satır, 2).Value = TC
Sheets("Veriler").Cells(Satır, 3).Value = Hizmet
End If
Next
Sheets("İndirilecek KDV Listesi").Select
End Sub

 

[UKDEM]

Ekteki Kod Denermisiniz

Sub Bul()

For i = 5 To Sheets("İndirilecek KDV Listesi").Range("F65536").End(3).Row

Aranan = Sheets("İndirilecek KDV Listesi").Cells(i, 6).Value
TC = Sheets("İndirilecek KDV Listesi").Cells(i, 7).Value
Hizmet = Sheets("İndirilecek KDV Listesi").Cells(i, 8).Value

Set RLK1 = Sheets("Veriler").Range("A2:A65536")
RLK = WorksheetFunction.CountIf(RLK1, Aranan)

Satır = Sheets("Veriler").Range("a65536").End(3).Row + 1

If RLK = 0 Then
Sheets("Veriler").Cells(Satır, 1).Value = Aranan
Sheets("Veriler").Cells(Satır, 2).Value = TC
Sheets("Veriler").Cells(Satır, 3).Value = Hizmet
End If
Next
Sheets("İndirilecek KDV Listesi").Select
End Sub

Yok hayır olmadı malesef. Ya da ben yapamadım.

 

[Huseyinkis]

Yok hayır olmadı malesef. Ya da ben yapamadım.

Ekteki Dosyayı İncelermisiniz Veriler sayfasında bütün hepsi olduğu için veri bulamıyordu

ordakileri sildim .. siz yeni isim ekledikçe çalıştırmanız yeterli

 

[UKDEM]

Hüseyin Bey,
Çok teşekkürler elinize sağlık. Bu sefer DÜŞEYARA formülüme bişeyler oldu.
Yapmasını istediğim şu: İndirilecek KDV Listesi sayfasında SERDAR ÇINAR yazdığımda veriler sayfasından Satıcının Vergi Kimlik Numarası / TC Kimlik Numarası Alınan Mal ve/veya Hizmetin Cinsi
verilerini otomatik olarak getirsin. Makro dan önce çalışıyordu ancak şu an formül hata veriyor. Acaba nerde eksiklik var?

 

[S.Yiğit]

Merhaba,

G54 hücresine aşağıdaki formülü yazıp yana ve aşağı doğru sürükleyiniz..

=DÜŞEYARA($F54;veriler!$A$2:$C$100;SÜTUNSAY($A$1:B2);0)

 

[S.Yiğit]

Yok olanlarıda boş görmek için,

=EĞER(EHATALIYSA(DÜŞEYARA($F54;veriler!$A$2:$C$100;SÜTUNSAY($A$1:B2);0));"";DÜŞEYARA($F54;veriler!$A$2:$C$100;SÜTUNSAY($A$1:B2);0))

 

[UKDEM]

Yardımlarınız için teşekkürler.