• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

SEÇİLİ İKİ HÜCRE ARASINDAKİ SÜTUN SAYISI

Ben soruyu yanlış anladıysam eğer aşağıdaki kodu butona atayın
C++:
Private Sub CommandButton1_Click()
If InStr(1, Selection.Address, ",") = 0 Then Exit Sub
Kolon1 = Range(Split(Selection.Address, ",")(0)).Column
Kolon2 = Range(Split(Selection.Address, ",")(1)).Column
MsgBox "Aralıktaki kolon sayısı : " & Kolon2 - Kolon1 - 1 & vbCrLf & "İlk ve Son hücreler hariç"
End Sub
 
Geri
Üst