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 09: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 03: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 10: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
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 598
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: BAŞKA SAYFAYA VERİ SÜZME

İleti#3)  SİBEL70 » 10 Ekm 2018 12: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 03: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: Bing[Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe