kod açıklaması

[polis-53]

arkadaşlar bu kodu açıklamasını yaparsanuz çok sevinirim.

Sub Brut()
Dim aln As Range
With Sheets("Netten-Brüte")
For Each aln In .Range("L4:L" & .Cells(Rows.Count, 3).End(xlUp).Row)
aln.GoalSeek Goal:=aln.Offset(0, 1), ChangingCell:=aln.Offset(0, -10)
Next aln
End With
End Sub

 

[Saban Sertkaya]

Sayfa ismine bakılırsa, Net tutarlardan Brüt tutara ulaşmaya çalışılıyor gibi.
L4'ten L'nin son dolu hücresine kadar bir döngü yapılmış. Bu döngüye göre B sütunundaki veriler hesaplattırılıyor.
Google'da "Excelde Goal Seek Kullanımı" diye aratırsanız kullanımı hakkında açıklayıcı videolar bulabilirsiniz.