Ekle - gizle - göster makrosu

[gedavet]

herkese iyi günler dilerim ve iyi çalışmalar ekdeki dosyamda bir mokro var güzel bir kod ancak kısa bir dültme lazım

hangi sütunun 2. satırına veri yazılırsa onun bir sağına sütun ekliyor
aynı mantıkla hangi hücrein 2. satırında tıklı isek onun sağındaki alt grupları gizlese ve gösterse

 

[Ömer]

Merhaba,

Sayfadaki diğer kodları silerek aşağıdaki kodları yazınız.

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
sut = [IV2].End(1).Column: sut1 = ActiveCell.Column + 1
sut2 = [IV4].End(1).Column
    If sut1 - 1 = sut2 - 3 Then
        Columns(sut1).Insert Shift:=xlToRight
    ElseIf Columns(sut1).Hidden = False Then
        Range(Cells(1, sut1), Cells(65536, sut)).EntireColumn.Hidden = True
    Else
        Cells.EntireColumn.Hidden = False
    End If
End Sub

.

 

[gedavet]

Ilginiz için teşekkür edrim sütun eklemeyi nasıl yapıyor
TAMAM ÖMER BEY ÇOK TEŞEKKÜR EDERİM EN SONKİ ALT GURUBA ÇİFT TIKLAYINCA SAĞINA EKLİYOR
VE HANGİ SÜTUNA TIKLARSAM ONDAN SONRAKİ ALT GRUPLARI GİLİYOR GİLİ İSEDE GÖSTERİYOR
ÇOK TEŞEKKÜR EDRİM EMEKLERİNİZE SAĞLIK

 

[Ömer]

Sütun ekleme mantığı şu şekildedir;

2. satırda bulunan son dolu hücrenin buluduğu sütunda dolu olan bir hücreye fare ile çift tıklarsanız sağ taraftan bir sütun eklenir.

Küçük bir değişlik yaptım. Aşağıdaki kodları kullanırsınız..

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
sut = [IV2].End(1).Column: sut1 = ActiveCell.Column + 1
sut2 = [IV4].End(1).Column
If ActiveCell = "" Then Exit Sub
    If sut1 - 1 = sut2 - 3 Then
        Columns(sut1).Insert Shift:=xlToRight
    ElseIf Columns(sut1).Hidden = False Then
        Range(Cells(1, sut1), Cells(65536, sut)).EntireColumn.Hidden = True
    Else
        Cells.EntireColumn.Hidden = False
    End If
End Sub

.

 

[unur]

Mrb,
Başka bir başlık açmak istemedim.Yaklaşık olarak aynı soru kısaca şunu yapmak istiyorum yardımcı olursanız sevinirim.

A1800 hücreleri arası veri dolu olan bir sayfanın en başına bir sutun eklemek ve A3 satırından itibaren en son dolu satıra kadar sıra numarası verdirmek istiyorum makro ile

Yardımcı olacak arkadaşlara şimdiden Teşekkürler.

 

[unur]

İlgilenecek Arkadaşlara Teşekkürler.

 

[unur]

Mrb,
Başka bir başlık açmak istemedim.Yaklaşık olarak aynı soru kısaca şunu yapmak istiyorum yardımcı olursanız sevinirim.

A1800 hücreleri arası veri dolu olan bir sayfanın en başına bir sutun eklemek ve A3 satırından itibaren en son dolu satıra kadar sıra numarası verdirmek istiyorum makro ile

Yardımcı olacak arkadaşlara şimdiden Teşekkürler.

Bu konuda fikri olan arkadaş yokmu?

 

[Ömer]

Sorunuzu küçük bir örnek ekleyerek detaylı açıklayınız.

.

 

[unur]

Ömer Bey dosya ektedir.
Teşekkürler.

 

[Ömer]

Ömer Bey dosya ektedir.
Teşekkürler.

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    Dim son As Long
 
    son = Cells(Rows.Count, "A").End(xlUp).Row - 2
 
    Columns("A:A").Insert Shift:=xlToRight
 
    Range("A3") = 1
    Range("A3").DataSeries xlColumns, xlLinear, xlDay, 1, son
 
End Sub

.

 

[unur]

Teşekkürler Ömer Bey; Elinize sağlık.