çıkarma işlemi

[unutkan]

çıkarma işlemi

vba son satırda çıkarma işlemi nasıl yapılır

son satırlarımız diyelim g 44 ve h 44 olarak listelendi bu satırların toplamını alabiliyorum fakat vba da iki satırın çıkarma işlemi nasıl olacak

istediğim =G44 - H44 ama son satırda işlem yapacak ve vba da olacak
şimdiden teşekkür ederim

 

[Necdet]

Merhaba,

Örnek dosya ile sorunuzu desteklerseniz soruna ulaşmanız daha hızlı olacaktır.

 

[exam77]

SONSATIR=RANGE("G44")-RANGE("H44")


SONSATIR yerine sonucu yazdırmak istediğiniz hücreyi yazın...
İyi çalışmalar...

 

[unutkan]

SONSATIR=RANGE("G44")-RANGE("H44")


SONSATIR yerine sonucu yazdırmak istediğiniz hücreyi yazın...
İyi çalışmalar...

teşekkürler ama çalışmadı isterseniz ekli dosyadan yardımcı olabilir misiniz

 

[unutkan]

çıkarma işlemi

vba son satırda çıkarma işlemi nasıl yapılır

son satırlarımız diyelim g 44 ve h 44 olarak listelendi bu satırların toplamını alabiliyorum fakat vba da iki satırın çıkarma işlemi nasıl olacak

istediğim =G44 - H44 ama son satırda işlem yapacak ve vba da olacak
şimdiden teşekkür ederim

Private Sub CommandButton1_Click()
Dim s1 As Worksheet
Dim s2 As Worksheet
Range("A10:H1000").ClearContents
If Cells(5, 5) = "" Then
MsgBox "Müşteri kodunu giriniz"
Exit Sub
End If
If (Cells(1, 4) = "") Then
MsgBox "Tarih Giriniz"
Exit Sub
End If
If Not IsDate(Cells(1, 4)) Then
MsgBox "Tarih Giriniz"
Cells(1, 4) = ""
Cells(1, 4).Select
Exit Sub
End If
If Cells(1, 5) = "" Then
MsgBox "Sadece tarih giriniz"
Exit Sub
End If
If Not IsDate(Cells(1, 5)) Then
MsgBox "Sadece tarih giriniz"
Cells(1, 5) = ""
Cells(1, 5).Select
Exit Sub
End If
If Cells(1, 5) < Cells(1, 4) Then
MsgBox "Biti&#351; tarihi k&#252;&#231;&#252;k olamaz"
Cells(1, 5).Select
Exit Sub
End If
Set s1 = Worksheets("Sayfa1")
Set s2 = Worksheets("Sayfa2")
bb = 10
For i = 1 To s1.Cells(65536, 1).End(xlUp).Row
If s1.Cells(i, 2) <> s2.Cells(5, 5) Then GoTo DEVAM
If s1.Cells(i, 4) < s2.Cells(1, 4) Then GoTo DEVAM
If s1.Cells(i, 4) > s2.Cells(1, 5) Then GoTo DEVAM
For F = 1 To 8
Cells(bb, F) = s1.Cells(i, F)
Next F
bb = bb + 1
DEVAM:
Next i
If bb = 5 Then Exit Sub
SON = [g65536].End(3).Row
Cells(SON + 2, "g").Value = WorksheetFunction.Sum(Range(Cells(1, "g"), Cells(SON, "g")))
Cells(SON + 2, "f").Value = "Genel Toplam"
SON = [h65536].End(3).Row
Cells(SON + 2, "h").Value = WorksheetFunction.Sum(Range(Cells(1, "h"), Cells(SON, "h")))

End Sub

---------------------------------

NOT : Dosyan&#305;z buraya ta&#351;&#305;nm&#305;&#351;t&#305;r. L&#252;tfen, ayn&#305; konu i&#231;in yeni bir ba&#351;l&#305;k a&#231;may&#305;n&#305;z. (Ferhat Pazar&#231;evirdi)