Hedef Ara - Goal Seek

[besen]

Hedef ara - Goal Seek fonksiyonunu, makro olarak oluşturmak mümkün mü?
Örnek sorum ekte
Teşekkür ederim.

 

[Merhum İdris SERDAR]

.

Bu kodları deneyin.

Sub Brut()
 
Dim aln As Range
With Sheets("Eylül")

    For Each aln In .Range("AD4:AD" & .Cells(Rows.Count, 3).End(xlUp).Row)
        aln.GoalSeek Goal:=aln.Offset(0, 1), ChangingCell:=aln.Offset(0, -27)
        
    Next aln
    
End With

End Sub

.

 

[besen]

.

Bu kodları deneyin.

Sub Brut()
 
Dim aln As Range
With Sheets("Eylül")

    For Each aln In .Range("AD4:AD" & .Cells(Rows.Count, 3).End(xlUp).Row)
        aln.GoalSeek Goal:=aln.Offset(0, 1), ChangingCell:=aln.Offset(0, -27)
        
    Next aln
    
End With

End Sub

.

Hocam teşekkürler, modüle oluşturdum. Ad kolonunda makroyu çalıştırdığımda hata veriyor.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.


.

 

[besen]

.

Dosyanız ekte.


.

Hocam harikasınız. hesaplanan brüt alanını round(;2) nasıl yapabiliriz.
Çok teşekkürler.

 

[Merhum İdris SERDAR]

.

Böyle bir şey mi?

.

 

[besen]

.

Böyle bir şey mi?

.

Evet hocam roundu 2 yaptım, istediğim buydu.
Teşekkür ederim.

Mailde de sordum ama, C kolonunun yerini değiştirirsem makroda nereyi değiştirmem gerekiyor.

For Each aln In .Range("AD4:AD" & .Cells(Rows.Count, 3).End(xlUp).Row)
aln.GoalSeek Goal:=aln.Offset(0, 1), ChangingCell:=aln.Offset(0, -27)

Saygılar.

 

[Merhum İdris SERDAR]

.

-27'yi.


.