Aşağıdaki kodlarla sayfafaya sütun eklendiğinde istenen diğer sayfalara da aynı şekilde sütun ekliyor.Bu kodları satır ekleme için düzenlemeye çalıştım ama başarılı olamadım. Ayrıca sayfada satır silince de istenilen diğer sayfalarda aynı satırlar silinebilir mi? Yardımcı olursanız çok sevinirim.
..................
Private Sub Worksheet_Change(ByVal Target As Range)
sat = Cells.Columns.Count
Dim Kolan As String
Kolan = Split(ActiveCell.Address, "$")(1)
If Cells(1, sat).Value = 1 Then
Cells(1, sat).Value = ""
Sheets("Sayfa2").Columns(Kolan & ":" & Kolan).Insert Shift:=xlToRight
Exit Sub
End If
End Sub
..................
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Cells.Columns.Count - 1
Dim Kolan As String
Kolan = Split(ActiveCell.Address, "$")(1)
Cells(1, sat).Value = 1
End Sub
..................
Private Sub Worksheet_Change(ByVal Target As Range)
sat = Cells.Columns.Count
Dim Kolan As String
Kolan = Split(ActiveCell.Address, "$")(1)
If Cells(1, sat).Value = 1 Then
Cells(1, sat).Value = ""
Sheets("Sayfa2").Columns(Kolan & ":" & Kolan).Insert Shift:=xlToRight
Exit Sub
End If
End Sub
..................
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Cells.Columns.Count - 1
Dim Kolan As String
Kolan = Split(ActiveCell.Address, "$")(1)
Cells(1, sat).Value = 1
End Sub