Merhablar,
ThisWorkbook kod sayfasina:
Private Sub workbook3_open()
With Range("g31").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="C24,C30,GL 24h, GL 28c, GL 32c, GL 28h, GL 32h, GL 24c, GL 36c, GL 36h"
.InCellDropdown = True
End With
End Sub
yazdim bir sorun cikmadi. Ama buna göre bir kod daha yazmam gerek bir türlü basaramadim.Devami ise söyle olmasi gerekti.
Sayfa koduna asagidaki istedigimi nasil yazabilirim:
Eger C24 yada GL 24c secersem b52 de 9,8 olsun
Eger C30, GL 24h yada GL 28c secersem 11,55 olsun
Eger GL 28h yada GL 32c secersem 13,45 olsun
Eger GL 32h yada GL 36c secersem 14,79 olsun
Eger GL 36h secersem 16,20 olsun
yardim ederseniz cok sevinirim. Simdiden cok tesekkürler.
ThisWorkbook kod sayfasina:
Private Sub workbook3_open()
With Range("g31").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="C24,C30,GL 24h, GL 28c, GL 32c, GL 28h, GL 32h, GL 24c, GL 36c, GL 36h"
.InCellDropdown = True
End With
End Sub
yazdim bir sorun cikmadi. Ama buna göre bir kod daha yazmam gerek bir türlü basaramadim.Devami ise söyle olmasi gerekti.
Sayfa koduna asagidaki istedigimi nasil yazabilirim:
Eger C24 yada GL 24c secersem b52 de 9,8 olsun
Eger C30, GL 24h yada GL 28c secersem 11,55 olsun
Eger GL 28h yada GL 32c secersem 13,45 olsun
Eger GL 32h yada GL 36c secersem 14,79 olsun
Eger GL 36h secersem 16,20 olsun
yardim ederseniz cok sevinirim. Simdiden cok tesekkürler.