BAŞKA SAYFAYA VERİ SÜZME

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

BAŞKA SAYFAYA VERİ SÜZME

İleti#1)  SİBEL70 » 10 Ekm 2018 11:10

Merhabalar
Ekteki dosyada filtre sayfasında A2 hücresine ürün grubu girildiğinde, urun sayfasında bulunan ürün grubuna karşılık gelen sütunları filtre sayfasına süzmeye çalışıyorum. Forumda benzer örnekler buldum ancak tıkandım ve ilerleyemiyorum. Destek verirseniz sevinirim.

Saygılar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
SİBEL70
Siteye Alışmış
 
Adı Soyadı:sibel bardakçı
Kayıt: 26 Oca 2009 05:02
Yaş: 48
İleti: 320
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: BAŞKA SAYFAYA VERİ SÜZME

İleti#2)  tasad » 10 Ekm 2018 12:29

Kod: Tümünü seç
Option Compare Text


Sub veri_al()
Dim S2 As Worksheet: Set S2 = Sheets("fıltre")
Dim S6 As Worksheet: Set S6 = Sheets("urun")
Application.ScreenUpdating = False
Sheets("fıltre").Range("A4:H10000").ClearContents
sat = 4
    For i = 1 To S6.Cells(Rows.Count, "b").End(3).Row
    If S6.Cells(i, "b") = S2.Range("a2") Then
    S6.Range("c" & i & ":f" & i).Copy S2.Cells(sat, "a")
    sat = sat + 1
End If
Next i
Application.ScreenUpdating = True
MsgBox "VERİ ALMA TAMAMLANDI "
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 254
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: BAŞKA SAYFAYA VERİ SÜZME

İleti#3)  SİBEL70 » 10 Ekm 2018 14:02

Yardımınız için teşekkürler tasad,

Düzenmelemeler esnasında bozmayı başarmazsam şayet kodlar sorunsuz çalışıyor :)

İhtiyacı olabilecek arkadaşlar için verdiğiniz kodları dosyaya ilave ederek ekledim.
Kolay Gelsin,
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
SİBEL70
Siteye Alışmış
 
Adı Soyadı:sibel bardakçı
Kayıt: 26 Oca 2009 05:02
Yaş: 48
İleti: 320
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe