bukresli
Yeni Üye
- Katılım
- 29 Eki 2018
- Mesajlar
- 42
- En iyi yanıt
- 0
- Puanları
- 8
- Yaş
- 53
- Konum
- Romanya / Bukres
- Ad Soyad
- Hünkar Maydanozoğlu
Ben bir şey anlamadım.2 tablo var ,hangisi olacak?
iki side ayrı calisma kitapları icin birtanesi kasa islemleri yapiyor digeri stok ornek dosya ya ben ikisini ekledimBen bir şey anlamadım.2 tablo var ,hangisi olacak?
Son yolladığınız dosyada ne yapılacak?Evren abi bu dosyaya bir bak istersen ufer formu acip rakamlari yazdigimda calisma kitabia yazmasi icin
Sub islemler_59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "H").End(xlUp).Row
Range("J8:J" & Rows.Count & ",M8:M" & Rows.Count & ",P8:P" & Rows.Count).ClearContents
Range("J8").Value = Range("H8").Value - Range("I8").Value
Range("M8").Value = Range("K8").Value - Range("L8").Value
Range("P8").Value = Range("N8").Value - Range("O8").Value
For i = 9 To sonsat
If Range("B" & i).Value = "" Then
Range("J" & i).Value = ""
Else
Range("J" & i).Value = WorksheetFunction.Sum(Range("H" & i & ":I" & i & ",J" & i - 1))
End If
If Range("B" & i).Value = "" Then
Range("M" & i).Value = ""
Else
Range("M" & i).Value = WorksheetFunction.Sum(Range("K" & i & ":L" & i & ",M" & i - 1))
End If
If Range("B" & i).Value = "" Then
Range("P" & i).Value = ""
Else
Range("P" & i).Value = WorksheetFunction.Sum(Range("N" & i & ":O" & i & ",P" & i - 1))
End If
Next i
MsgBox "bitti"
End Sub
sonsat = Cells(Rows.Count, "B").End(xlUp).Row