Seçimden C sütununu çıkarmak

[k0081]

Merhaba arkadaşlar;

 For Each secim In Selection

bu şekilde bir seçim yaptırdığımda B ile E arasında C ve D mevcut.. bu seçim formatından C sütununu nasıl çıkarabilirim ? yani C sütunu seçilmemiş olacak.. B D ve E seçişmiş olacak..

yardımcı arkadaşa şimdiden teşekkürler..

 

[apocalyt]

range("b40:b58,d40:e58") şeklinde deneyin..

 

[k0081]

range("b40:b58,d40:e58") şeklinde deneyin..

denedim.. olmadı..

 

[apocalyt]

ben kendi excel dosyamda deniyorum..sonuç olumlu..

 

[Korhan Ayhan]

Merhaba,

Seçimi şekillendirmek yerine döngü içine bir "If" sorgusu ekleyip işlemi kolaylaştırabilirsiniz.

Örnek;

If secım.Column <> 3 Then

Bu koşul ile "C" sütununu atlayabilirsiniz.

 

[k0081]

ben kendi excel dosyamda deniyorum..sonuç olumlu..

şimdi; sizin vermiş olduğunuz örnek kod belli bir adres gösteriyor.. benim çalışmamda ise seçim sürekli değişken o yüzden olmuyor..

 

[k0081]

Korhan Ayhan;

merhaba. hocam o şekilde yapınca kodu değiştiremedim.. kodun devamı şu şekilde :

For Each secim In Selection
Kol = Kol + 1
If Kol > Selection.Columns.Count Then
            Print #1, Satir
            Satir = ""
            Kol = 1
            i = i + 1
            Satir = "A200" & i
        End If

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki yapıyı kullanabilirsiniz.

Sub ÖRNEK()
    For Each secim In Selection
        If secim.Column <> 3 Then
            'Yapmak istediğiniz işlemler
            'Yapmak istediğiniz işlemler
            'Yapmak istediğiniz işlemler
            'Yapmak istediğiniz işlemler
        End If
    Next
End Sub

 

[k0081]

Korhan Ayhan;

Hocam çok teşekkür ederim,, tamamdır..