Bul seç kopyala

[Gulbaglar]

Merhaba,
Belki bilenler için basittir ama ben işin içinden çıkamadım örnekli şekilde derdimi anlatayım

Elimde 2 adet excel tablosu var birinde 5000 diğerinde 3000 veri var eğer varsa
5000 lik listenin içinden 3000 lik veriyi bulup silecek ve bana diğer listede eksik olan 2000 kalacak bir formul ya da elimde eksik 2000 tanenin sadece a1 stunu kodları mevcut bu durum da ise

A1 stununda xxxx B1 stununda Ali C1 Stununda veli D1 Stununda 501 E1 Stununda 60 yazıyor diyelim

bana örneğin H1 stunundan başlayarak da 2000 ürünün xxxx kısmını girince yanına otomatik olarak b c d e stunu yapıştırarak eksik 2000 listeyi bulmamı sağlayacak bir formul varmıdır

şimdiden teşekkür ederim iyi çalışmalar

 

[çıtır]

Sorunuzu örnek excel dosyası ekleyerek sorarsanız,daha kısa sürede doğru cevaplar alabilirsiniz. Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz: https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/...

 

[Gulbaglar]

Merhaba,

https://www.dosyaupload.com/fkj0

burada çok küçük ne yapmaya çalıştığımı gösteren bir excel var

Teşekkür ederim

 

[çıtır]

Sayfa kodu olarak kopyalayınız.
(Excel ekranında sayfa adının yazılı olduğu sekmede fare sağtuş tıklayınız.Kod görüntüle seçiniz ve çıkan alana kodu kopyalayınız.)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H1:H5000]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Dim BUL As Range
   son = ActiveSheet.Cells(65335, "A").End(3).Row
  If Target.Value = "" Then
  Exit Sub
  End If
  Set BUL = ActiveSheet.Range("A1:A" & son).Find(Target, , , xlWhole)
    If Not BUL Is Nothing Then
      k = BUL.Row
          ActiveSheet.Range(Cells(k, 2), Cells(k, 5)).Select
          Selection.Copy
          ActiveSheet.Cells(target.Row, 9).Select
           ActiveSheet.Paste
         Application.CutCopyMode = False
End If
    Application.ScreenUpdating = True
End Sub

veya
Kopyalamaz.Sadece verileri getirir.I1 Hücresine kopyalayınız.Yeterince sağa ve aşağı çoğaltınız.

=EĞERHATA(DÜŞEYARA($H1;$A$1:$E$5000;SÜTUN(B$1);0);"")

 

[Gulbaglar]

Çok Teşekkür ederim gerçekten çok büyük uğraştan kurtardınız beni sayfanın müdavimi olucam gibi umarım yakında rahat ve seri şekilde kullanabilirim exceli iyi çalışmalar

 

[çıtır]

Çok Teşekkür ederim gerçekten çok büyük uğraştan kurtardınız beni sayfanın müdavimi olucam gibi umarım yakında rahat ve seri şekilde kullanabilirim exceli iyi çalışmalar

Rica ederim.Dönüş yaptığınız için teşekkür ederim.