aktif hücrenin devamına çıkan sayılar

[mrs303]

Arkadaşlar Ekli dosyada açıklamalarını yazdığım örnek hakkında yardımcı olabilirseniz sevinirim. Bir sütuna gililen metin, yanındaki 2 sütuna otomatik olarak çıkan sayılar şeklinde bir formül veya makro olabilir.

 

[danersin]

Rakamların sayfada bir yerde yazması ile makroda yazması arasında ne fark var pek anlamadım ama size makro bilmesenizde üstünde değişiklik yapması en kolay olacak şekilde bir kod yazdım.. tabi bu tiner, boya vs kelimeler yüzlerce olacaksa daha şık bir şey yazmakta fayda var. bunu sayfa sekmesinden kod görüntüleye girerek sayfanın modülüne yazmalısınız.

[vb:1:56d41598b4]

Private Sub Worksheet_Change(ByVal Target As Range)
sonsat = Cells(65000, 1).End(xlUp).Row

If Cells(sonsat, 2) = "" Then

aranan = Cells(sonsat, 1)
If aranan = "tiner" Then
ilk = 0.5
iki = 5
End If

If aranan = "astar" Then
ilk = 0.5
iki = 6
End If

If aranan = "boya" Then
ilk = 1
iki = 10
End If

If aranan = "zımpara" Then
ilk = 1
iki = 8.8
End If

Cells(sonsat, 2) = ilk
Cells(sonsat, 3) = iki


End If

End Sub


[/vb:1:56d41598b4]