If kullanımı

[6729626]

If PVCC1.Value = "6000 CLASSİC" Then
Ciro.Range("U" & son) = PVC1.Value
End ıf
If PVCC1.Value = "6000 QUADRO" Then
Ciro.Range("V" & son) = PVC1.Value
End ıf
If PVCC1.Value = "MAESTRO SERİSİ" Then
Ciro.Range("W" & son) = PVC1.Value
End ıf
Bu şekilde bir çok kod yazmam gerekiyor. Bu kodları kısaltmak için çoklu if komutunu nasıl kullanmalıyım.

 

[mrttrn]

Select Case PVCC1.Value
 Case "6000 CLASSİC"
    Ciro.Range("U" & son) = PVC1.Value
 Case "6000 QUADRO"
       Ciro.Range("V" & son) = PVC1.Value
 Case "MAESTRO SERİSİ"
       Ciro.Range("W" & son) = PVC1.Value
End Select

İstediğiniz bu mu? Tam anlayamadım.

 

[6729626]

PVCC1 adı combo adıdır, PVC1 İse texbox adı Yani Combo = 6000 classik ise ciro sayfasının u sutununa aktar gibi. Bir comboda 600 classik adı gibi 10 kadar ad var hepsini ayrı ayrı yazmam mı gerekiyor yoksa mesela combo=a2:e2.deki değerlerden biri ise o değeri ciro sayfasının a2:b2 sutununda bul ve o adın altına aktar gibi bir makro yapılabilirmi? Teşekkürler ilginiz için.

 

[mrttrn]

Ciro gibi sayfaların olduğu düzenlerinin belirtildiği bir excel dosyası gönderirseniz.Forumdaki ustalarda yardımcı olabilir.Ne istediğiniz anlaşılmıyor.

 

[Maksim]

Herkese merhaba.
Her zamankı kibi sizlerin yardıçlarlnlza ihtiyacım var.
SQL-den veri çekiyorum. (Borc Alacak durum raporu)
Aldığım rapor Karib bir halde.
Yapmak istediyim şu
1.Eğer 2 hücrede 0 olursa hemen cari hesab listede olmasın
2.Eğer Bakiye alacak kolonunda (e) 0 dan büyük rakam olursa 0 yazilsin
3.Kolon nerde biterse bitsin toplamı versin

Ilğiniz için teşekkürler