İsme git makrosu

[mavi674]

Herkese Selamlar
Siteiniz sayesinde çok şeyler öğrendim ve bunları her yerde kullandım ve hala kullanıyorum.
Çok teşekkürler, hakkınızı ödeyemem..
bir makro oluşturmaya çalıştım fakat hata veriyor, tabiki bir yerde hata var ama ben bu kadar yapabildim
Kısaca şöyle çalışması gerekiyor.
Butona tıkladığımda;
1-AD1:AD8 sütununda isimler var.
B7 hücresine olan bir isim kaçıncı satırda ise ise buna göre başka sayfadaki ismine gitmesi gerekiyor.
(ben bunu satırla çözemediğim için her isim için ayrı ayrı gideceği yeri belirttim.
2-Eğer B7 boş ise "İSİM GİR" mesajı versin...



Sub ismegit()

adı1 = Range("ad1")
adı2 = Range("ad2")
adı3 = Range("ad3")
adı4 = Range("ad4")
adı5 = Range("ad5")
adı6 = Range("ad6")
adı7 = Range("ad7")
adı8 = Range("ad8")

If Cells(b7) = adı1 Then
Sheets("1-4").Select
Call sonboşdeğer1

ElseIf Cells(b7) = adı2 Then
Sheets("1-4").Select
Call sonboşdeğer2

If Cells(b7) = adı3 Then
Sheets("1-4").Select
Call sonboşdeğer3

ElseIf Cells(b7) = adı4 Then
Sheets("1-4").Select
Call sonboşdeğer4

If Cells(b7) = adı5 Then
Sheets("1-4").Select
Call sonboşdeğer5

ElseIf Cells(b7) = adı6 Then
Sheets("1-4").Select
Call sonboşdeğer6

If Cells(b7) = adı7 Then
Sheets("1-4").Select
Call sonboşdeğer7

ElseIf Cells(b7) = adı8 Then
Sheets("1-4").Select
Call sonboşdeğer8

End If
End Sub

 

[RBozkurt]

8 farklı değer var fakat işlem sonucunda hepsi "Sheets("1-4").Select" sayfasında sonboşdeğer** makrosunu çağırıyor.

Edit.

Dosya yok. Kendinize göre sayfa kısmını düzenleyerek deneyiniz.

Sub AraVeSec()
    Dim aranan As String
    Dim ad1 As String, ad2 As String, ad3 As String, ad4 As String, ad5 As String, ad6 As String, ad7 As String, ad8 As String
    Dim sayfa1 As Worksheet, sayfa2 As Worksheet, sayfa3 As Worksheet, sayfa4 As Worksheet, sayfa5 As Worksheet, sayfa6 As Worksheet, sayfa7 As Worksheet, sayfa8 As Worksheet
   
    aranan = Sheets("Sayfa1").Range("B7").Value
   
    If aranan = "" Then
        MsgBox "B7 Boş"
        Exit Sub
    End If
   
    ad1 = Sheets("Sayfa1").Range("ad1").Value
    ad2 = Sheets("Sayfa1").Range("ad2").Value
    ad3 = Sheets("Sayfa1").Range("ad3").Value
    ad4 = Sheets("Sayfa1").Range("ad4").Value
    ad5 = Sheets("Sayfa1").Range("ad5").Value
    ad6 = Sheets("Sayfa1").Range("ad6").Value
    ad7 = Sheets("Sayfa1").Range("ad7").Value
    ad8 = Sheets("Sayfa1").Range("ad8").Value
   
    Set sayfa1 = ThisWorkbook.Sheets("Sayfa1")
    Set sayfa2 = ThisWorkbook.Sheets("Sayfa2")
    Set sayfa3 = ThisWorkbook.Sheets("Sayfa3")
    Set sayfa4 = ThisWorkbook.Sheets("Sayfa4")
    Set sayfa5 = ThisWorkbook.Sheets("Sayfa5")
    Set sayfa6 = ThisWorkbook.Sheets("Sayfa6")
    Set sayfa7 = ThisWorkbook.Sheets("Sayfa7")
    Set sayfa8 = ThisWorkbook.Sheets("Sayfa8")
   
    If aranan = ad1 Then
        sayfa1.Select
        Call sonbosdeger1
    ElseIf aranan = ad2 Then
        sayfa2.Select
        Call sonbosdeger2
    ElseIf aranan = ad3 Then
        sayfa3.Select
        Call sonbosdeger3
    ElseIf aranan = ad4 Then
        sayfa4.Select
        Call sonbosdeger4
    ElseIf aranan = ad5 Then
        sayfa5.Select
        Call sonbosdeger5
    ElseIf aranan = ad6 Then
        sayfa6.Select
        Call sonbosdeger6
    ElseIf aranan = ad7 Then
        sayfa7.Select
        Call sonbosdeger7
    ElseIf aranan = ad8 Then
        sayfa8.Select
        Call sonbosdeger8
    Else
        MsgBox "Aranan değer bulunamadı."
    End If
End Sub

 

[mavi674]

Teşekkürlerimi sunarım
Mükemmel çalıştı tam istediğim gibi oldu
elleriniz dert görmesin iyi ki varsınız...
Ben daha 10 fırın ekmek yemem lazım....

 

[irfem4]

Teşekkürlerimi sunarım
Mükemmel çalıştı tam istediğim gibi oldu
elleriniz dert görmesin iyi ki varsınız...
Ben daha 10 fırın ekmek yemem lazım....

iy günler kolay gelsin. sitede arama arama yaparken msj denkgeldim ve benimde böyle bir dosyaya ihtiyacım var. çalışan örnek dosyayı paylaşabilirmisiniz.

 

[mavi674]

akşam evden göndereyim

 

[mavi674]

iy günler kolay gelsin. sitede arama arama yaparken msj denkgeldim ve benimde böyle bir dosyaya ihtiyacım var. çalışan örnek dosyayı paylaşabilirmisiniz.

Selam
size örnek dosya hazırladım ama bir sorun çıktı.
Sayfaya gidiyor ama ismi seçmiyor...
RBozkurt
arkadaşım örnek dosyayı inceleyebilir misiniz.
kodunuzu örnek dosyama ekledim ama imleç ismin üzerine gitmiyor.
Teşekkürler

Örnek isim bulma.xls indir

Dosyayı indir, full download - Örnek isim bulma.xls

www.dosyaupload.com

Sub AraVeSec()
Dim aranan As String
Dim ad1 As String, ad2 As String, ad3 As String, ad4 As String, ad5 As String, ad6 As String, ad7 As String, ad8 As String
Dim sayfa1 As Worksheet, sayfa2 As Worksheet, sayfa3 As Worksheet, sayfa4 As Worksheet, sayfa5 As Worksheet, sayfa6 As Worksheet, sayfa7 As Worksheet, sayfa8 As Worksheet

aranan = Sheets("icmal").Range("B7").Value

If aranan = "" Then
MsgBox "B7 BOŞ"
'MsgBox "FLİTREDEN İSİM SEÇ !"

Exit Sub
End If

ad1 = Sheets("icmal").Range("j1").Value
ad2 = Sheets("icmal").Range("j2").Value
ad3 = Sheets("icmal").Range("j3").Value
ad4 = Sheets("icmal").Range("j4").Value
ad5 = Sheets("icmal").Range("j5").Value
ad6 = Sheets("icmal").Range("j6").Value
ad7 = Sheets("icmal").Range("j7").Value
ad8 = Sheets("icmal").Range("j8").Value

Set sayfa1 = ThisWorkbook.Sheets("1-4")
Set sayfa2 = ThisWorkbook.Sheets("1-4")
Set sayfa3 = ThisWorkbook.Sheets("1-4")
Set sayfa4 = ThisWorkbook.Sheets("1-4")
Set sayfa5 = ThisWorkbook.Sheets("5-8")
Set sayfa6 = ThisWorkbook.Sheets("5-8")
Set sayfa7 = ThisWorkbook.Sheets("5-8")
Set sayfa8 = ThisWorkbook.Sheets("5-8")

If aranan = ad1 Then
sayfa1.Select
'isme git
'Range("c1").Select

ElseIf aranan = ad2 Then
sayfa2.Select

ElseIf aranan = ad3 Then
sayfa3.Select

ElseIf aranan = ad4 Then
sayfa4.Select

ElseIf aranan = ad5 Then
sayfa5.Select

ElseIf aranan = ad6 Then
sayfa6.Select

ElseIf aranan = ad7 Then
sayfa7.Select

ElseIf aranan = ad8 Then
sayfa8.Select

Else
MsgBox "Aranan değer bulunamadı."
End If
End Sub

 

[mavi674]

bu kodu başka yerde kullandığımda işimi görmüştü...
Ama irfem4
arkadaşım için örnek dosya hazzırkadığımda isme gitmediğini gördüm...