Kodları bulan kısa makro ?

[mars2]

İ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ü

 

[danersin]

Muhtemelen Select Case ile biraz daha güzel gözükebilir kodlarınız ama gönderdiğiniz kodda mantığınız doğruysa bunu kod satırı olarak çok fazla kısaltma imkanı yok gibi gözüküyor. Ã?bür taraftan bu kodları 1 defaya mahsus yazacaksınız neticede. Kodların uzun olmasının çok fazla bir önemi yok. Ã?nemli olan doğru ve hızlı çalışması. Kod uzun olunca daha yavaş çalışırın , yada kısa olunca daha hızlı çalışırında garantisi yok.

Kısacası doğru çalışıyosa ve hız problemi yoksa, uzunluğuna takılmayın.

 

[alpi]

aynı kodları Workbook kod sayfasında sheetsselectchange olayına yazdığınızda bu kodlar tüm sayfalarda çalışır duruma gelecektir