Lİsteden otomatik veri süzme farklı yerlere yapıştırma

[jidame]

Arkadaşlar merhaba

Excel içindeki diğer sheetten veri alıp diğer sheetin farklı faklı yerlerine otomatik veri nasıl getirtebiliriz.

Ekli excel de açıklama yaptım

 

[Necdet]

Merhaba,

Umarım anladığım gibidir. Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Getir()
    
    Dim c   As Range, _
        ShB As Worksheet, _
        ShL As Worksheet
        
    Set ShB = Sheets("Ba-Bs")
    Set ShL = Sheets("Liste")
    
    If ShB.Range("A1") = "" Then
        MsgBox "SIRA NUMARASINI BOŞ GEÇMEYİNİZ...", vbCritical
        Exit Sub
    End If
    
    Set c = ShL.Range("A:A").Find(ShB.Range("A1"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        ShB.Range("B24") = ShL.Range("B" & c.Row)
        ShB.Range("B25") = ShL.Range("C" & c.Row)
        ShB.Range("D34") = ShL.Range("D" & c.Row)
        ShB.Range("E34") = ShL.Range("E" & c.Row)
    Else
        MsgBox ShB.Range("A1") & " SIRA NO BULUNAMADI..."
        Exit Sub
    End If
    
    MsgBox "TAMAMDIR"
    
End Sub

 

[Pashos]

Düşey ara ile basit bir şekilde yaptım ama kontrol edersiniz.

 

[jidame]

Düşey ara ile basit bir şekilde yaptım ama kontrol edersiniz.

teşekkürler , bende zaten düşeyara ile yapıyordum biraz daha ileri nasıl olur acaba demiştim

 

[rogue_s]

merhaba...bu konuda bir adım ötesine ihtiyacım var. arkadaşın örneğinden gidecek olursak listede aynı isimden birden fazla kayıt varsa, ba-bs sayfasına bunları belli bir alana liste olarak getirebilirmiyiz? düşeyara ile sadece ilk veya son satırı getirebiliyoruz.
teşekkürler

 

[Necdet]

teşekkürler , bende zaten düşeyara ile yapıyordum biraz daha ileri nasıl olur acaba demiştim

Bizim yanıt gümbürtüye gitmiş.

Yorum da yapılmamış.

 

[gurbuzmeydan08]

necdet bey sizin yeriniz form da ayrı şimdi kadar yaptıklarınız bir harika ....