Ilk olarak counter=1 ile counter=2 codelarini kiyasladim. Sadece degisen "SAHA-01" veya "SAHA-02" yazan 2 satir.
Bu yüzden 29 satiri tekrar yazma gereksiz.
SAHA-01 mi yoksa SAHA-02 mi olacagina önceden karar verilir ve bir varible'de depolanir
Dim saha as string
saha = "SAHA-" & format(Counter,"00")
Worksheets("Nokta").Cells(last + 1, 1).Value = saha
Worksheets("Nokta").Cells(last + 1, 2).Value = saha
Böylece 28 satiri tekrarlamak zorunda kalmazsiniz.
Esas soruya gelince kastettiginiz tek tiklama-cift tiklama mi, yoksa birinci tiklama, ikinci tiklama mi?