şartlı sütün ekleme kaldırma

[bydogannn67]

Üstadlar kolay gelsin,

bir ricam olacak çalışma sayfasında B2 hücresinde X yazıyosa G sütünunun yanında yeni 12 genişliğinde sütün açılacak B2 hücresinde Y yazıyosa açılan sütün silinecek

Böyle bir makroya ihtiyacım var yardımcı olabilirmisiniz

 

[Ömer BARAN]

Merhaba.

Sorunuzu, gerçek belgenin bir kopyası şeklinde hazırlaycağınız bir örnek belge üzerinden sormanız yerinde olur.

-- Zira sorunuz bence net değil. B2 hücresindeki değer elle mi yazılıyor, formül sonucunda mı elde ediliyor?
-- Formül sonucunda elde ediliyorsa formül nasıl bir formüldür, formülün etkilendiği hücreler hangileridir?
-- G sütununun yanı F sütunu mu, H sütunu mu? Yani G sütununun sağına mı soluna mı ekleme/silme yapılacak?

Bunları sorma nedenim kod'un nasıl tetikleneceğinin cevabını anlamak ve bunun üzerinden fikir yürütmek.

-- B2'ye veri elle yazılıyorsa kod, harf yazıldığında tetiklenebilir,
-- ya da işlem için bir düğme mi kullanılacak?
-- İstenilen sütun ekleme/silme işleminden sonra B2'deki değer olduğu gibi mi kalacak, silinecek mi?
.

 

[bydogannn67]

Hocam,

doğru diyorsunuz fakat, mevcut dosyada şirket bilgileri olduğu için ekliyemedim, örnek bir excelde eklesem boş bir excel olacak, B2 hücresine formul ile x ve y değeri geliyor, bunlara görede G hücresinin sağına B2'de X yazdığında H sütünü açılacak yada B2'de Y yazdığında açılmış olan H sütünü silinecek hocam

NOT : B2 hücresinde X yada Y değerinden başka bişi gelmiyor yada başka bir değer yazılmasına kilitli

 

[Ömer BARAN]

Tekrar merhaba.

► ALT+F11 tuşlarına basarak VBA ekranını görüntüleyin,
► Üst taraftaki MENÜ kısmından INSERT => MODULE yi seçin,
► Sağdaki boş kısıma aşağıdaki kod satırını yapıştırın,
.

[B][COLOR="blue"]Public [COLOR="Red"]eski[/COLOR] As String[/COLOR][/B]

► VBA ekranında iken, sol taraftaki sayfa listesinden işlem yapılacak sayfanın adına fareyle çift tıklayın ve
sağdaki alana aşağıdaki kodları yapıştırın.

[B][COLOR="blue"]Private Sub Worksheet_Calculate()[/COLOR][/B]
    If [B2].Value = "X" And [B][COLOR="Red"]eski[/COLOR][/B] = "Y" Then
        [B][COLOR="red"]eski[/COLOR][/B] = "": Columns("H:H").Insert Shift:=xlToRight
    ElseIf [B2].Value = "Y" And [B][COLOR="red"]eski[/COLOR][/B] = "X" Then
        [B][COLOR="red"]eski[/COLOR][/B] = "": Columns("H:H").Delete Shift:=xlToLeft
    End If
[B][COLOR="Blue"]End Sub[/COLOR][/B]

[B][COLOR="blue"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/COLOR][/B]
    [B][COLOR="Red"]eski[/COLOR][/B] = [B2].Value
[B][COLOR="Blue"]End Sub[/COLOR][/B]