makro ile Sütunları gizleme

[omeryılmaz]

Arkadaşlar Range("D,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N").Select
yerine daha kısa uygulama nasıl yapılabilir.

If ComboBox1 = "F" Then
Range("d:d,e:e").Select
Selection.EntireColumn.Hidden = True
Range("f3").Select
End If
.........................
If ComboBox1 = "AA" Then
Range("D,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O,P,Q:Q,R:R,S:S,T:T,U:U,V:V,W:W,Y:Y,Z:Z").Select
Selection.EntireColumn.Hidden = True
Range("AA3").Select
End If

 

[Orion1]

Böyle olabilir.

If ComboBox1 = "F" Then
Range("d:d,e:e").EntireColumn.Hidden = True
Range("f3").Select
End If
.........................
If ComboBox1 = "AA" Then
Range("D:D,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S,T:T,U:U,V:V,W:W,Y:Y,Z:Z").EntireColumn.Hidden = True
Range("AA3").Select
End If

 

[omeryılmaz]

Benim İstediğim

If ComboBox1 = "Z" Then
(D sütunu ile Y sütünu) arasını gizle
Range("Z3").Select

If ComboBox1 = "AA" Then
(D sütunu ile Z sütünu) arasını gizle
Range("AA3").Select
End If

 

[Ayhan Ercan]

Böylede olabilir herhalde...

For i = 4 To 25
Columns(i).Hidden = True
Next

 

[Ayhan Ercan]

Benim İstediğim

If ComboBox1 = "Z" Then
(D sütunu ile Y sütünu) arasını gizle
Range("Z3").Select

If ComboBox1 = "AA" Then
(D sütunu ile Z sütünu) arasını gizle
Range("AA3").Select
End If

Bu Şekilde deneyiniz...

If ComboBox1 = "Z" Then
    For i = 4 To 25
        Columns(i).Hidden = True
    Next
    Range("Z3").Select
ElseIf ComboBox1 = "AA" Then
    For i = 4 To 26
        Columns(i).Hidden = True
    Next
    Range("AA3").Select
End If

 

[Orion1]

Aşağıdaki kod işinizi görür.

Dim sut As String
Range("D1:IV1").EntireColumn.Hidden = False
sut = Cells(Range(ComboBox1.Value & "1").Row, Range(ComboBox1.Value & "1").Column - 1).Address
Cells(3, Range(sut).Column + 1).Select
Range("D1:" & sut).EntireColumn.Hidden = True