seçilen aralık c sütununda ise bul

[natura]

merhaba, ekteki dosyada anlatmaya çalıştım. yardımcı olursanız sevinirim

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
[f2] = WorksheetFunction.Sum(Selection)
[g2] = WorksheetFunction.Sum(Selection.Offset(0, 1))
End Sub

 

[natura]

ilginize teşekkür ederim ziya bey, sadece seçtiğim alanında c sütununda olduğunu kontrol etsin istiyorum. teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
[f2:g2] = Empty
If Selection.Column <> 3 Then GoTo 0
[f2] = WorksheetFunction.Sum(Selection)
[g2] = WorksheetFunction.Sum(Selection.Offset(0, 1))
Exit Sub
0
MsgBox "seçilen sütun c sütunu değil.", vbInformation
End Sub

 

[natura]

emeğinize sağlık teşekkür ederim