Makro ile kolon ekleme

[bmutlu966]

Arkadaşlar,

Sayfa1 e bir kolon eklediğimde Sayfa2 de aynı yere otomatik kolon eklensin istiyorum. Nasıl bir kod yazmam gerekiyor ?

 

[halit3]

Arkadaşlar,

Sayfa1 e bir kolon eklediğimde Sayfa2 de aynı yere otomatik kolon eklensin istiyorum. Nasıl bir kod yazmam gerekiyor ?

bu kodu denermisiniz.

Sub Kolan_ekle()
Dim Kolan As String
Kolan = Split(ActiveCell.Address, "$")(1)
Sheets("Sayfa1").Columns(Kolan & ":" & Kolan).Insert Shift:=xlToRight
Sheets("Sayfa2").Columns(Kolan & ":" & Kolan).Insert Shift:=xlToRight
End Sub

 

[bmutlu966]

Halit hocam çok teşekkürler. Sorumu bir düzey daha ileri götürmek istiyorum. Ben kolonu manuel olarak eklediğim anda bu veya başka bir makro çalışıp ikinci sayfadaki aynı yere kolon açabilir mi ?

 

[Orion1]

Naçizane benim fikrim, kolon ve satır ekleme konusuna soğuk bakıyorum.
Son kolonda bir hücreye veri girin ve kolon eklemeyi bir deneyin bakalım ne olacak?

 

[bmutlu966]

Naçizane benim fikrim, kolon ve satır ekleme konusuna soğuk bakıyorum.
Son kolonda bir hücreye veri girin ve kolon eklemeyi bir deneyin bakalım ne olacak?

Evren hocam sana katılıyorum, ancak benim kullanacağım kolon sayısı ilk 50 kolonla sınırlı olacağı için böyle bir problem olmayacak.

 

[halit3]

bu kodu denermisiniz.?

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

 

[halit3]

6. nolu mesajdaki kodu yeniden düzenledim.

 

[bmutlu966]

Halit hocam bu makroları sayfa1 e kopyalayıp denedim ama olmadı. Yanlış birşeymi yapıyorum ?

 

[halit3]

Halit hocam bu makroları sayfa1 e kopyalayıp denedim ama olmadı. Yanlış birşeymi yapıyorum ?

örnek dosyaya bir bak

 

[bmutlu966]

Tamam hallettim. Aklına beynine sağlık. Çok teşekkürler.

 

[halit3]

Tamam hallettim. Aklına beynine sağlık. Çok teşekkürler.

iyi çalışmalar

 

[thugangel]

Arkadaşlar aynı işlemi satır ekleme için yaptırabilir miyiz? Bir de satır silince diğer sayfada aynı satır silinebilir mi? Yardımlarınızı bekliyorum.

 

[thugangel]

kodları düzenlemeye çalıştım ama beceremedim. Lütfen yardım.