[Yardım]  Farklı sayfadan veri almadaki kodda hata nerede?

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Farklı sayfadan veri almadaki kodda hata nerede?

İleti#1)  mars2 » 05 Ekm 2019 13:33

İyi Günler;

Aşağıdaki kodla forma liste ve anasayfadan veri almak istiyorum. Ancak, anasayfadaki verileri alamamaktayım sebebi neden olabilir.

anasayfadaki T sutununda metin bulunmaktadır.

Buna benzer farklı sayfalardan veri aldığım örnek dosyada kodflar çalışlmaktadır.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Intersect(Target, [D7]) Is Nothing Then Exit Sub
If Target.Value = Empty Then Exit Sub

Set s1 = Sheets("bilgiformu")
Set s2 = Sheets("liste")
Set s3 = Sheets("anasayfa")

For Each bul In s2.Range(("B5:B5000"))
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then

MsgBox "ARADIĞINIZ KİŞİ BULUNAMADI.", vbInformation, "BİLGİ"
GoTo 10
'Exit Sub
End If

s1.Cells(9, "D").Value = s2.Cells(sat, "D").Value
s1.Cells(10, "D").Value = s2.Cells(sat, "E").Value

10:

For Each bul In s3.Range(("B2:B5000"))
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then

Exit Sub
End If

s1.Cells(32, "D").Value = s3.Cells(sat, "T").Value


Set s1 = Nothing
Set s2 = Nothing
Set s3 = Nothing

End Sub
Kullanıcı avatarı
mars2
Siteye Alışmış
 
Adı Soyadı:musa ark
Kayıt: 23 Oca 2009 04:07
Konum: izmir
Meslek: memur
Yaş: 59
İleti: 128
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/Konak

Cevap: Farklı sayfadan veri almadaki kodda hata nerede?

İleti#2)  erseldemirel2 » 05 Ekm 2019 23:34

On error resume next i kaldırım. Hata hangi satırda veriyor?
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Farklı sayfadan veri almadaki kodda hata nerede?

İleti#3)  mars2 » 06 Ekm 2019 17:06

Sayın erseldemirel2;

cevabınız için teşekkürler,
On error resume next i kaldırdım herhangi bir satırda hata vermemektedir.
Kullanıcı avatarı
mars2
Siteye Alışmış
 
Adı Soyadı:musa ark
Kayıt: 23 Oca 2009 04:07
Konum: izmir
Meslek: memur
Yaş: 59
İleti: 128
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/Konak

Cevap: Farklı sayfadan veri almadaki kodda hata nerede?

İleti#4)  ahmetilhan282 » 06 Ekm 2019 18:48

dosyanızı ekleyebilir misiniz?
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 862
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Farklı sayfadan veri almadaki kodda hata nerede?

İleti#5)  mars2 » 06 Ekm 2019 23:30

Örnek dosya ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
mars2
Siteye Alışmış
 
Adı Soyadı:musa ark
Kayıt: 23 Oca 2009 04:07
Konum: izmir
Meslek: memur
Yaş: 59
İleti: 128
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/Konak

Cevap: Farklı sayfadan veri almadaki kodda hata nerede?

İleti#6)  ahmetilhan282 » 07 Ekm 2019 22:00

bu kodları deneyebilir misiniz?
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> Range("D7").Address Or Target.Value = "" Then Exit Sub

    Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, bul As Range, sat As Integer
    Set s1 = Sheets("bilgiformu"): Set s2 = Sheets("liste"): Set s3 = Sheets("anasayfa")

    Set bul = s2.Range("B:B").Find(Target.Value, , xlValues, xlWhole)
    If Not bul Is Nothing Then
        sat = bul.Row
        s1.Cells(9, "D").Value = s2.Cells(sat, "D").Value
        s1.Cells(10, "D").Value = s2.Cells(sat, "E").Value
        s1.Cells(11, "D").Value = s2.Cells(sat, "F").Value
        s1.Cells(12, "D").Value = s2.Cells(sat, "G").Value
        s1.Cells(13, "D").Value = s2.Cells(sat, "H").Value
        s1.Cells(14, "D").Value = s2.Cells(sat, "I").Value
        s1.Cells(15, "D").Value = s2.Cells(sat, "J").Value
        s1.Cells(15, "E").Value = s2.Cells(sat, "K").Value
        s1.Cells(16, "D").Value = s2.Cells(sat, "L").Value

        s1.Cells(20, "D").Value = s2.Cells(sat, "M").Value
        s1.Cells(21, "D").Value = s2.Cells(sat, "N").Value
        s1.Cells(22, "D").Value = s2.Cells(sat, "O").Value
        s1.Cells(23, "D").Value = s2.Cells(sat, "P").Value

        s1.Cells(25, "D").Value = s2.Cells(sat, "Q").Value
        s1.Cells(27, "D").Value = s2.Cells(sat, "S").Value
        s1.Cells(29, "D").Value = s2.Cells(sat, "U").Value
   
        Set bul = s3.Range("B:B").Find(Target.Value, , xlValues, xlWhole)
        If Not bul Is Nothing Then
            sat = bul.Row
            s1.Cells(30, "D").Value = s3.Cells(sat, "T").Value
            s1.Cells(34, "D").Value = s3.Cells(sat, "V").Value
        End If
    Else
        MsgBox "ARADIĞINIZ KİŞİ BULUNAMADI.", vbInformation, "BİLGİ"
    End If

    Set s1 = Nothing: Set s2 = Nothing: Set s3 = Nothing: Set bul = Nothing: sat = Empty

End Sub

Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 862
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Farklı sayfadan veri almadaki kodda hata nerede?

İleti#7)  mars2 » 08 Ekm 2019 13:05

Sayın ahmetilhan282;

İlgi ve cevabınız için teşekkürler. Kodlar çalışmaktadır.
Hata nereden kaynaklandığı hakkında fikir verirseniz sevinirim.
Kullanıcı avatarı
mars2
Siteye Alışmış
 
Adı Soyadı:musa ark
Kayıt: 23 Oca 2009 04:07
Konum: izmir
Meslek: memur
Yaş: 59
İleti: 128
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/Konak


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe