üveyin
Altın Üye
- Katılım
- 24 Nisan 2022
- Mesajlar
- 133
- Excel Vers. ve Dili
- 2016 tr
- Altın Üyelik Bitiş Tarihi
- 24-04-2027
Arkadaşlar öncelikler kolay gelsin,
Normal sayfa içinde Checkbox larım var (A21:F78) aralığında verilerim kayıtlı tiklendiğinde tikli olanlar kalsın tik atılmayan satırlarım gizlenmesi ama işim bitince bütün satırların tekrardan gözükmesi mümkün mü? birde A21:A78 Sutunda sıra numarası seçili satırlara 1 den başlayıp kaç satır tikli ise numara yazabilen bir kod için yardımlarınıza ihtiyaçım var bu sayfa içinde ayrıca aşağıdaki kodu kullanıyorum birim güncellemede şimdiden teşekkür ederim kolay gelsin.
NOT: dosya formatımı ekledim yardımlarınızı bekliyorum
Private Sub Worksheet_Calculate()
If Range("I9").Value = 1 Then
Range("E21:E78,F21:F82").NumberFormat = "#,##0.00 $"
End If
If Range("I9").Value = 2 Then
Range("E21:E78,F21:F82").NumberFormat = "[$$-409]#,##0.00"
End If
If Range("I9").Value = 3 Then
Range("E21:E78,F21:F82").NumberFormat = "[$€-2] #,##0.00"
End If
End Sub
Normal sayfa içinde Checkbox larım var (A21:F78) aralığında verilerim kayıtlı tiklendiğinde tikli olanlar kalsın tik atılmayan satırlarım gizlenmesi ama işim bitince bütün satırların tekrardan gözükmesi mümkün mü? birde A21:A78 Sutunda sıra numarası seçili satırlara 1 den başlayıp kaç satır tikli ise numara yazabilen bir kod için yardımlarınıza ihtiyaçım var bu sayfa içinde ayrıca aşağıdaki kodu kullanıyorum birim güncellemede şimdiden teşekkür ederim kolay gelsin.
NOT: dosya formatımı ekledim yardımlarınızı bekliyorum
Private Sub Worksheet_Calculate()
If Range("I9").Value = 1 Then
Range("E21:E78,F21:F82").NumberFormat = "#,##0.00 $"
End If
If Range("I9").Value = 2 Then
Range("E21:E78,F21:F82").NumberFormat = "[$$-409]#,##0.00"
End If
If Range("I9").Value = 3 Then
Range("E21:E78,F21:F82").NumberFormat = "[$€-2] #,##0.00"
End If
End Sub
Son düzenleme: