mars2
Altın Üye
- Katılım
- 2 Eylül 2004
- Mesajlar
- 557
- Excel Vers. ve Dili
-
2016 - Türkçe
2019 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 26-03-2026
İyi günler;
çalışma kitabımın 1. sayfasında form bulunmakta, 2. sayfada ise hesap adları ve kodları bulunmaktadır.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("sayfa1").Range("A1") = "800" Then
Worksheets("sayfa1").Range("b2") = "805"
Worksheets("sayfa1k").Range("c2") = "600"
Worksheets("sayfa1k").Range("d2") = "KDV"
.
If Worksheets("sayfa1").Range("A1") = "900" Then
Worksheets("sayfa1").Range("b2") = "905"
Worksheets("sayfa1k").Range("c2") = "800"
Worksheets("sayfa1k").Range("d2") = "DV"
.
.
.
.
end if
end sub
A1 : A10 hücreleri için her seferinde bu kodları yazmak gerekiyor.
bunun yerine daha kısa bir kod yazmak mümkün mü
çalışma kitabımın 1. sayfasında form bulunmakta, 2. sayfada ise hesap adları ve kodları bulunmaktadır.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("sayfa1").Range("A1") = "800" Then
Worksheets("sayfa1").Range("b2") = "805"
Worksheets("sayfa1k").Range("c2") = "600"
Worksheets("sayfa1k").Range("d2") = "KDV"
.
If Worksheets("sayfa1").Range("A1") = "900" Then
Worksheets("sayfa1").Range("b2") = "905"
Worksheets("sayfa1k").Range("c2") = "800"
Worksheets("sayfa1k").Range("d2") = "DV"
.
.
.
.
end if
end sub
A1 : A10 hücreleri için her seferinde bu kodları yazmak gerekiyor.
bunun yerine daha kısa bir kod yazmak mümkün mü