Hedefe Formüle Göre Değişken Bulmak

[baydeniro]

Merhaba arkadaşlar. Formül ve bu formüle göre bulunması gereken sonuç belli iken değişkenlerden birinin bulunmasına yönelik makro söz konusu olur mu.

Formül : (A+B) x C (10+5) x 30 = 450
A belli değil ise 10 değerinin bulunmasına yönelik makro.

Not : Formnüle göre fonksiyon ile yani geri formül ile çözüm var. Örnekteki gibi formül basit olduğunda bu çözüm uygulanabilir. Ama genel bir makro gerekli.

 

[AS3434]

Sayın serdarokan

Yapmış olduğunuz formülasyonun makroya uyarlanmış hali.

Sub Makro1()
For a = 2 To [a65536].End(3).Row
 If Cells(a, 1) = "" Then Exit Sub
  If Cells(a, 1) <> Cells(a, 7) And Cells(a, 3) = "" Then
  Cells(a, 3) = Cells(a, 1) / Cells(a, 5) - Cells(a, 4)
    Else
    If Cells(a, 1) <> Cells(a, 7) And Cells(a, 4) = "" Then
    Cells(a, 4) = Cells(a, 1) / Cells(a, 5) - Cells(a, 3)
      Else
      If Cells(a, 1) <> Cells(a, 7) And Cells(a, 5) = "" Then
      Cells(a, 5) = Cells(a, 1) / (Cells(a, 4) + Cells(a, 3))
 End If: End If: End If
Next
End Sub

Daha kısa yöntem olabilir. Benim yapabildiğim bu kadar.

 

[baydeniro]

Çok Çok Teşekkürler

Sayın AS3434 çok teşekkürler. Yani ne diyeceğimi bilemiyorum. Bu forumda sizler gibi büyük ustalar ile tanışmaktan büyük gurur duyuyorum. Allah başarılarınızı daim kılsın. Sağlıcakla kalın.

 

[AS3434]

Rica ederim.

İşinize yaradığına sevindim.

İyi geceler.

 

[baydeniro]

Makrodaki Hata Nerede ?

Merhaba arkadaşlar. Bu konudaki dosyada bulunan formülü biraz geliştirmek isteyince zorlandık. Bir kod oluşturmaya çalıştık ama istenilen sonucu vermiyor. Acaba koddaki hata veya eksiklik nerede ?

Sub Makro4()
For a = 2 To [a65536].End(3).Row
If Cells(a, 1) = "" Then Exit Sub

If Cells(a, 1) <> Cells(a, 9) And Cells(a, 3) = "" Then
Cells(a, 3) = Cells(a, 5) / Cells(a, 4)
Else

If Cells(a, 1) <> Cells(a, 9) And Cells(a, 4) = "" Then
Cells(a, 4) = Cells(a, 5) / Cells(a, 3)
Else

If Cells(a, 1) <> Cells(a, 9) And Cells(a, 5) = "" Then
Cells(a, 5) = Cells(a, 3) * Cells(a, 4)
Else

If Cells(a, 1) <> Cells(a, 9) And Cells(a, 6) = "" Then
Cells(a, 6) = Cells(a, 3) + (Cells(a, 3) * Cells(a, 4))
Else

If Cells(a, 1) <> Cells(a, 9) And Cells(a, 7) = "" Then
Cells(a, 7) = (Cells(a, 3) + (Cells(a, 3) * Cells(a, 4))) / Cells(a, 8)
Else

If Cells(a, 1) <> Cells(a, 9) And Cells(a, 8) = "" Then
Cells(a, 8) = ((Cells(a, 3) + (Cells(a, 3) * Cells(a, 4)))) / Cells(a, 7)
End If: End If: End If: End If: End If: End If: End If
Next
End Sub

 

[AS3434]

Say&#305;n serdarokan

Sadece C s&#252;tunundaki de&#287;erin mi bulunmas&#305;n&#305; istiyorsunuz?

 

[baydeniro]

Evet sayın AS3434, sadece C deki değerin bulunmasını amaçlıyoruz.

 

[AS3434]

Sayın serdarokan

Dosyanızdan anladığım kadarı ile D ve G sütununda sabit verileriniz var. Diğerleri C sütunundaki veriyle ilgili.
Sadece A, D Ve G sütunlarına veri girin.

Makroyu şöyle değiştirin.

Sub Makro4()
For a = 2 To [a65536].End(3).Row
If Cells(a, 1) = "" Then Exit Sub
Cells(a, 3) = Cells(a, 1) * 2.5
Next
End Sub

 

[baydeniro]

Sayın AS3434 ilginiz ve zaman ayırdığınız için çok teşekkürler. Konuya eklediğim dosya gerçek berilerin basitleştirilmiş hali. Bizim amacımız değişen duruma formülasyona uyarlayabilme yetisine erişmek. Çünkü araya bazı IF li formüller girecek. Böyle durumlarda sonuçtan geriye nasıl gideriz arayışı içindeyiz. Eğer fırsatınız olur da sizden feyz alarak geliştirdiğimiz makrodaki hatayı belirleme fırsatınız olursa çok minnettar oluruz. Fırsat olmazsa canınız sağolsun, zaman ayırdığınız için tekrar tekrar teşekkürler.