option ile diger sayfadan veri alma.

[musmusti]

Arkadaslar Merhabalar,

Ekteki dosyada iki sayfam var. birisi veri sayfası.
Diğeri tablo.
Option secenegi cliklediğim anlada ilgili ülkeye ait verileri çekme sansım varmıdır acaba?

İlginiz için şimdiden Tesekkürler

Mustafa

 

[musmusti]

yardım edebilecek birileri yok mudur acep

 

[musmusti]

arkadaşlar yokm kimse yardımcı olabilecek

 

[Orion1]

Dosyanız ektedir.

Sub ulke_59()
Dim sat As Long
Sheets("Sheet1").Select
Application.ScreenUpdating = False
Range("A10").AutoFilter
sat = Cells(Rows.Count, "A").End(xlUp).Row
If sat < 10 Then Application.ScreenUpdating = True: Exit Sub
Range("A10").AutoFilter field:=1, Criteria1:=Range("D2").Value
Application.ScreenUpdating = True
End Sub
Sub hepsi()
Application.ScreenUpdating = False
Range("A10").AutoFilter
Application.ScreenUpdating = True

End Sub

 

[peptokok]

Ben den de benzer bir cevap

Function ulke(a As Integer)
On Error GoTo ileri
Select Case a
Case 1
ulke = "HOLLANDA"
Case 2
ulke = "FRANSA"
Case 3
ulke = "ALMANYA"
Case 4
ulke = "TURKIYE"
Case 5
ulke = ""
End Select
ileri:

End Function

Sub filtrele()
Range("Sheet1!a12:n36").ClearFormats
Range("Sheet2!a6:n31").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("Sheet1!a8:n9"), CopyToRange:=Range("Sheet1!a11:n36"), Unique:=False
End Sub

Benim de çorbada bir tuzum olsum
Dosyanız ekte verilmiştir.