makroda şartlı komut yazabilirmiyiz.

[puslukurt]

2 adet firma ismim var bu firmaların isimleri cumbobox1 den seçiyorum. excelde "firma bilgileri" diye bir sayfam var. bu iki firmanın sipariş bilgileri ve ne kadar sipariş miktarları kaldığı bu sayfa yazılı şimdi benim istediğim şart veya koşul (if) olabilir, cumbobox1 de firmanın ismini seçtiğimde otomatik olarak textbox6 da kalan sipariş miktarı diye bi şart yazılabilir mi ayrıca a firmasının kalan sipariş miktarı firma bilgileri sayfası b6'da (b) firmasının kalan sipariş miktarı yine aynı sayfa f6 satırında şimdiden teşekkürler arkadaşlar

 

[N.Ziya Hiçdurmaz]

Yazılırda küçük bir örnek ekleseniz daha iyi olur.

 

[puslukurt]

ekteki dosyayı incelerseniz sevinirim.

 

[N.Ziya Hiçdurmaz]

yanıt

Firma bilgileri sayfasında firmaları alt alta alırsak bu şekil olabilir.

Private Sub ComboBox1_Change()
Set s1 = Sheets("FİRMA BİLGİLERİ")
For i = 1 To s1.[a65536].End(3).Row
If ComboBox1.Value = s1.Range("a" & i).Value Then
TextBox6 = s1.Range("a" & i).Offset(3, 1)
End If
Next
End Sub

 

[puslukurt]

üstadım ilk firmanın kalan miktarı tam istediğim gibi geliyor ama ikinci firmayı seçtiğimde 0 değerini veriyor oysa 5000 ton siparişi var ilgilendiğin için ayrıca teşekkür ederim üstadım iyi çalışmalar

 

[N.Ziya Hiçdurmaz]

İkinci firmanın formüllerini düzenlemelisiniz.

 

[puslukurt]

üstadım formulleri değiştirince istediğim gibi oldu teşekkür ederim. yalnız bir sorunum kaldı üstadım. aslında çok basit userformu hatırlarsanız miktar yazan textbox'a rakam girdiğimde o girdiğim rakamıda düşerek kalan miktar bölümünün textboxunda gösterebilirmiyiz.

 

[N.Ziya Hiçdurmaz]

yanıt

kodun bu kısmını bununla değiştirin.

TextBox6 = s1.Range("a" & i).Offset(3, 1) - Val(TextBox4)

 

[puslukurt]

üstadım kodu aynı senin yazdığın gibi değiştirdim ama rakamlarda bi değişiklik olmadı

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil yaptınızmı?

Private Sub ComboBox1_Change()
Set s1 = Sheets("FİRMA BİLGİLERİ")
For i = 1 To s1.[a65536].End(3).Row
If ComboBox1.Value = s1.Range("a" & i).Value Then
TextBox6 = s1.Range("a" & i).Offset(3, 1) - Val(TextBox4)
End If
Next
End Sub