- Katılım
- 2 Nisan 2008
- Mesajlar
- 132
- Excel Vers. ve Dili
- 2003 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 25.05.2019
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
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