Çoklu İf Kullanımı

[ErcumentaL]

Arkadaşlar Merhaba. Aşağıda yazdığım kod için yardımlarınızı bekliyorum.
a5 hücresindeki değere göre sayfaya veri aktarmak istiyorum
Bu Kodu a5 hücresinin farklı değerlerine göre nasıl çoğaltabilirim.
Yani;
a5 11.sınıf ise 11.sınıf sayfaısna
a5 10.sınıf ise 10.sınıf safyasına verdi aktrılsın istiyorum.

If Range("A5") = "12.sınıf" Then
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("2018 12.SINIF")

s2.Cells(s2.[A65536].End(3).Row + 1, 1) = Date
s2.Cells(s2.[B65536].End(3).Row + 1, 2) = s1.Cells(6, 3)
s2.Cells(s2.[C65536].End(3).Row + 1, 3) = s1.Cells(9, 3)
s2.Cells(s2.[D65536].End(3).Row + 1, 4) = s1.Cells(11, 3)
s2.Cells(s2.[E65536].End(3).Row + 1, 5) = s1.Cells(23, 3)
End if

 

[derisa963]

Arkadaşlar Merhaba. Aşağıda yazdığım kod için yardımlarınızı bekliyorum.
a5 hücresindeki değere göre sayfaya veri aktarmak istiyorum
Bu Kodu a5 hücresinin farklı değerlerine göre nasıl çoğaltabilirim.
Yani;
a5 11.sınıf ise 11.sınıf sayfaısna
a5 10.sınıf ise 10.sınıf safyasına verdi aktrılsın istiyorum.

If Range("A5") = "12.sınıf" Then
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("2018 12.SINIF")

s2.Cells(s2.[A65536].End(3).Row + 1, 1) = Date
s2.Cells(s2.[B65536].End(3).Row + 1, 2) = s1.Cells(6, 3)
s2.Cells(s2.[C65536].End(3).Row + 1, 3) = s1.Cells(9, 3)
s2.Cells(s2.[D65536].End(3).Row + 1, 4) = s1.Cells(11, 3)
s2.Cells(s2.[E65536].End(3).Row + 1, 5) = s1.Cells(23, 3)
End if

Şöyle bir yol izleyiniz.

Sayfa isimleri ve "a5" hücrenizdeki isimler birebir olsun
daha sonra örnek:

Dim s1 As Worksheet: Set s1 = Sheets(worksheets("a5 hücresinin bulunduğu sayfanın adı").Range("A5").value)

bu şekilde a5 i değiştirince otomatikmen s1 değişkeni de a5 de adı geçen sayfa oluyor :biggrin:

 

[ErcumentaL]

Şöyle bir yol izleyiniz.

Sayfa isimleri ve "a5" hücrenizdeki isimler birebir olsun
daha sonra örnek:

Dim s1 As Worksheet: Set s1 = Sheets(worksheets("a5 hücresinin bulunduğu sayfanın adı").Range("A5").value)

bu şekilde a5 i değiştirince otomatikmen s1 değişkeni de a5 de adı geçen sayfa oluyor :biggrin:

Sayın derisa963; öneriniz çok mantıklı ama a5 hücresi ile sayfa adını aynı yapma imkanım yoksa nasıl bir yol önerirsiniz

 

[derisa963]

Sayın derisa963; öneriniz çok mantıklı ama a5 hücresi ile sayfa adını aynı yapma imkanım yoksa nasıl bir yol önerirsiniz

o zaman yine ayni mantık ama farklı yoldan
''''''''''''''''''''''''''''''''''
Dim sayfaadi as Variant, secenek as Variant
secenek = worksheets("a5 hücresinin bulunduğu sayfanın adı").Range("A5").value
If secenek = "12. sınıf" Then
sayfaadi = "2018 12. sınıf sayfası"
ElseIf secenek = "11. sınıf" Then
sayfaadi = "2018 11. sınıf sayfası"
end if
Dim s1 As Worksheet: Set s1 = Sheets(sayfaadi)

''''''''''''''''''''''''''''''''''''''''''''''''

 

[ErcumentaL]

o zaman yine ayni mantık ama farklı yoldan
''''''''''''''''''''''''''''''''''
Dim sayfaadi as Variant, secenek as Variant
secenek = worksheets("a5 hücresinin bulunduğu sayfanın adı").Range("A5").value
If secenek = "12. sınıf" Then
sayfaadi = "2018 12. sınıf sayfası"
ElseIf secenek = "11. sınıf" Then
sayfaadi = "2018 11. sınıf sayfası"
end if
Dim s1 As Worksheet: Set s1 = Sheets(sayfaadi)

''''''''''''''''''''''''''''''''''''''''''''''''

Yardımız için çok teşekkür ederim. kodlar işimi gördü.