satır ve sütun eklemek, silmek

[cerit]

hocam elinize sağlık,
dosya yı açamadım, dosya biçimi ve uyumsuzluk uyarısı alıyorum.

 

[Muzaffer Ali]

Zip olarak ekliyorum. Kontrol edin.

İndir test zip

Dosyayı indir test zip

dosya.co

 

[cerit]

Hocam, teşekkür ederim

 

[cerit]

Merhaba,
Örnek dosyada sorunumu anlatmaya çalıştım,

İndir sayfalarda satır ekle Sil xlsm

Dosyayı indir sayfalarda satır ekle Sil xlsm

dosya.co

Saygılarımla

 

[Muzaffer Ali]

Giriş sayfasının kod sayfasındaki kodu aşağıdaki ile değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    Dim SonSatir As Long
    Dim Sayfalar As Variant
    For Each Bak In Target
        Application.EnableEvents = False
        If Not Intersect(Bak, Range("G:G")) Is Nothing Then
            For Each Sayfalar In Array("AİDAT", "DEMİRBAŞ")
                With Worksheets(Sayfalar)
                
                    SonSatir = .Cells(Rows.Count, "D").End(xlUp).Row
                    .Range("B4:E" & SonSatir, "V4:V" & SonSatir).ClearContents

                    SonSatir = Worksheets("GİRİŞ").Cells(Rows.Count, "G").End(xlUp).Row
                    .Range("D4:D" & SonSatir).FormulaLocal = "=IsimMaskele(GİRİŞ!G4)"
                    .Range("C4:C" & SonSatir).Formula = "=GİRİŞ!A4&GİRİŞ!B4 & GİRİŞ!F4"
                    .Range("E4:E" & SonSatir).FormulaLocal = "=EĞER(D4="""";"""";EĞERHATA(DÜŞEYARA(D4;GİRİŞ!$G$3:$U$73;3;0);"" ""))"
                    .Range("B4:B" & SonSatir).FormulaLocal = "=SATIR()-3"
                    If Sayfalar = "AİDAT" Then
                        .Range("T4:T" & SonSatir).FormulaLocal = "=TOPLA((GİRİŞ!$M$4:$X$4;GİRİŞ!M4:X4);E4)-R4"
                    ElseIf Sayfalar = "DEMİRBAŞ" Then
                        .Range("V4:V" & SonSatir).FormulaLocal = "=TOPLA((GİRİŞ!$M$4:$X$4;GİRİŞ!M4:X4);E4)-R4"
                    End If
                End With
            Next
        End If
        Application.EnableEvents = True
    Next
End Sub

 

[cerit]

Hocam merhaba,
Aidat ve Demirbaş sayfalarında işlem yapılan satır kadar tüm aylardaki formülleri siliyor.
T sütuna giriş sayfasından iki katı değer getiriyor.

 

[cerit]

Hocam merhaba,
Aşagıdaki gibi değişiklik yaptım sorun çözüldü.Elinize sağlık
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bak As Range
Dim SonSatir As Long
Dim Sayfalar As Variant
For Each Bak In Target
Application.EnableEvents = False
If Not Intersect(Bak, Range("G:G")) Is Nothing Then
For Each Sayfalar In Array("AİDAT", "DEMİRBAŞ")
With Worksheets(Sayfalar)

SonSatir = .Cells(Rows.Count, "D").End(xlUp).Row


SonSatir = Worksheets("GİRİŞ").Cells(Rows.Count, "G").End(xlUp).Row
.Range("D4:d" & SonSatir).FormulaLocal = "=IsimMaskele(GİRİŞ!G4)"
.Range("C4:C" & SonSatir).Formula = "=GİRİŞ!A4&GİRİŞ!B4 & GİRİŞ!F4"
.Range("B4:B" & SonSatir).FormulaLocal = "=SATIR()-3"
If Sayfalar = "AİDAT" Then
.Range("E4:E" & SonSatir).FormulaLocal = "=EĞER(D4="""";"""";EĞERHATA(DÜŞEYARA(D4;GİRİŞ!$G$3:$U$85;3;0);"" ""))"
.Range("T4:T" & SonSatir).FormulaLocal = "=TOPLA((GİRİŞ!M4:X4);E4)-R4"
ElseIf Sayfalar = "DEMİRBAŞ" Then
.Range("E4:E" & SonSatir).FormulaLocal = "=EĞER(D4="""";"""";EĞERHATA(DÜŞEYARA(D4;GİRİŞ!$G$3:$U$85;4;0);"" ""))"
.Range("T4:T" & SonSatir).FormulaLocal = "=TOPLA((GİRİŞ!$Z$4:$AK$4;GİRİŞ!Z4:AK4);E4)-R4"
End If
End With
Next
End If
Application.EnableEvents = True
Next
End Sub