1Al2Ver
Altın Üye
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,720
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
- Altın Üyelik Bitiş Tarihi
- 04-01-2026
Merhaba,
Aşağıdaki kod ile R5:R18 aralığını Gizle-Göster yapmaktayım,
Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
Range("R5:R18").NumberFormat = ";###;"
Else
ToggleButton1.Caption = "Gizle"
Range("R5:R18").NumberFormat = "###;"
End If
End Sub
İstediğim, R5:V18 aralığını Gizle-Göster yapmak,
Bu işlem için kodu ;
Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
Range("R5:R18").NumberFormat = ";###;"
Range("S5:S18").NumberFormat = ";###;"
Range("T5:T18").NumberFormat = ";###;"
Range("U5:U18").NumberFormat = ";###;"
Range("V5:V18").NumberFormat = ";###;"
Else
ToggleButton1.Caption = "Gizle"
Range("R5:R18").NumberFormat = "###;"
Range("S5:S18").NumberFormat = ";###;"
Range("T5:T18").NumberFormat = ";###;"
Range("U5:U18").NumberFormat = ";###;"
Range("V5:V18").NumberFormat = ";###;"
End If
End Sub
ve
Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
Range("R5:V18").NumberFormat = ";###;"
Else
ToggleButton1.Caption = "Gizle"
Range("R5:V18").NumberFormat = "###;"
End If
End Sub
şeklinde denedim, ancak başaramadım, R5:V18 aralığını Gizle-Göster yapan kodu rica ediyorum,
Teşekkür ederim.
Not ; Aynı sayfada
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBul As Range
Dim rngResimAlani As Range
Dim oRsm As Picture
ile başlayıp devam eden bir başka kod daha var...
Aşağıdaki kod ile R5:R18 aralığını Gizle-Göster yapmaktayım,
Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
Range("R5:R18").NumberFormat = ";###;"
Else
ToggleButton1.Caption = "Gizle"
Range("R5:R18").NumberFormat = "###;"
End If
End Sub
İstediğim, R5:V18 aralığını Gizle-Göster yapmak,
Bu işlem için kodu ;
Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
Range("R5:R18").NumberFormat = ";###;"
Range("S5:S18").NumberFormat = ";###;"
Range("T5:T18").NumberFormat = ";###;"
Range("U5:U18").NumberFormat = ";###;"
Range("V5:V18").NumberFormat = ";###;"
Else
ToggleButton1.Caption = "Gizle"
Range("R5:R18").NumberFormat = "###;"
Range("S5:S18").NumberFormat = ";###;"
Range("T5:T18").NumberFormat = ";###;"
Range("U5:U18").NumberFormat = ";###;"
Range("V5:V18").NumberFormat = ";###;"
End If
End Sub
ve
Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
Range("R5:V18").NumberFormat = ";###;"
Else
ToggleButton1.Caption = "Gizle"
Range("R5:V18").NumberFormat = "###;"
End If
End Sub
şeklinde denedim, ancak başaramadım, R5:V18 aralığını Gizle-Göster yapan kodu rica ediyorum,
Teşekkür ederim.
Not ; Aynı sayfada
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBul As Range
Dim rngResimAlani As Range
Dim oRsm As Picture
ile başlayıp devam eden bir başka kod daha var...