Ilgili kolandaki boş olan hücreye toplam aldırmak

[haso_excel]

Merhaba arkadaşlar,

Aşağıdaki kodu yazmak sureti ile j kolonunda bir hesaplama yaptırıyorum. Daha sonrada J kolonunda boş olan baştan ikinci hücresine J kolonunun toplamını aldırıp, G kolonunun son hücresine, (J kolonunun toplamı / G kolonunun toplamı )+I1 hücresi formulünü koymaya çalışıyorum.Fakat yapamadım, yardımcı olursanız çok sevinirim. Herkese kolay gelsin

Sub ORT_VADE()
Range("I1").Formula = "=Today()"
Dim i As Integer
Dim k As Integer

For i = 2 To WorksheetFunction.CountA(Range("G:G"))
If Cells(i, 7).Value > 0 Then
Cells(i, 9).Value = Cells(i, 6) - Range("ı1")
ElseIf Cells(i, 7).Value < 0 Then
Cells(i, 9).Value = Cells(i, 6) - Range("ı1")
End If

For k = 2 To WorksheetFunction.CountA(Range("I:I"))
If Cells(i, 9).Value > 0 Then
Cells(i, 10).Value = Cells(i, 9) * Cells(i, 7)
ElseIf Cells(i, 9).Value <= 0 Then
Cells(i, 10).Value = Cells(i, 9) * Cells(i, 7)

End If

Next k
Next i
    Columns("J:J").Select
    Range("J56").Activate
    Selection.Style = "Comma"


End Sub

 

[meslan]

Merhaba
Nex i den sonra şu kodları koplayıp yapıştır.
Columns("J:J").Style = "Comma"
son = [f65536].End(3).Row
Range("g" & son + 1) = (WorksheetFunction.Sum(Range("g2:g" & son)) / WorksheetFunction.Sum(Range("j2:j" & son))) + [I1].Value
Kolay gelsin

 

[haso_excel]

Sub ORT_VADE()
Rows("1:10").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Cells.Select
Cells.EntireColumn.AutoFit
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("F:G").Select
Selection.Delete Shift:=xlToLeft
Columns("I:M").Select
Selection.Delete Shift:=xlToLeft
Range("I1").Select

Range("I1").Formula = "=Today()"
Dim i As Integer
Dim k As Integer

For i = 2 To WorksheetFunction.CountA(Range("G:G"))
If Cells(i, 7).Value > 0 Then
Cells(i, 9).Value = Cells(i, 6) - Range("ı1")
ElseIf Cells(i, 7).Value < 0 Then
Cells(i, 9).Value = Cells(i, 6) - Range("ı1")
End If

For k = 2 To WorksheetFunction.CountA(Range("I:I"))
If Cells(i, 9).Value > 0 Then
Cells(i, 10).Value = Cells(i, 9) * Cells(i, 7)
ElseIf Cells(i, 9).Value <= 0 Then
Cells(i, 10).Value = Cells(i, 9) * Cells(i, 7)

End If

Next k
Next i
Columns("J:J").Style = "Comma"
son = [G65536].End(3).Row
Range("g" & son + 2) = (WorksheetFunction.Sum(Range("g2:g" & son)) / WorksheetFunction.Sum(Range("j2:j" & son))) + [I1].Value


End Sub

Kodu yukarıdaki gibi değiştirdim. G nin toplamı son hücrede geliyor. Son hücreyi sildim yukarıdki gibi yaptım I1 in değerini veriyor. Olmadı. Hesaplamayı G nin boş olan son hücresine yapsın istiyorum.

 

[meslan]

Merhaba
Ben anlattığınızdan anladığım kadarıyla formulü yazdım. Siz istediğinize uyarlamaya çalışın.
Yada dosya ekleyin orada açıklama yapınız. Dosyada gerekeni yapıp göndereyim.

 

[haso_excel]

Dosyam ekde yardımcı olursanız çok sevinirim.

 

[meslan]

merhaba
Ekli dosyayı inceleyiniz.
Tekrar görüşelim.

 

[haso_excel]

Halettim, yardımlarınız için çok teşekkür ederim.

 

[haso_excel]

Range("I1").Formula = "=Today()"
Dim i As Integer
Dim k As Integer

For i = 2 To WorksheetFunction.CountA(Range("G:G"))
If Cells(i, 7).Value > 0 Then
Cells(i, 9).Value = Cells(i, 6) - Range("ı1")
ElseIf Cells(i, 7).Value < 0 Then
Cells(i, 9).Value = Cells(i, 6) - Range("ı1")
End If

For k = 2 To WorksheetFunction.CountA(Range("I:I"))
If Cells(i, 9).Value > 0 Then
Cells(i, 10).Value = Cells(i, 9) * Cells(i, 7)
ElseIf Cells(i, 9).Value <= 0 Then
Cells(i, 10).Value = Cells(i, 9) * Cells(i, 7)

End If

Next k
Next i
Columns("J:J").Style = "Comma"
son = [g65536].End(3).Row
'Range("g" & son) = (WorksheetFunction.Sum(Range("g2:g" & son)))
sonf = [j65536].End(3).Row
Range("j" & sonf + 1) = (WorksheetFunction.Sum(Range("j2:j" & sonf)))
Range("g" & son + 2) = (WorksheetFunction.Sum(Range("j2:j" & son)) / 2) / (WorksheetFunction.Sum(Range("g2:g" & son)) / 2) + [I1].Value

Columns("I:J").Select
Range("I22").Activate
Selection.EntireColumn.Hidden = True

Columns("G:G").ColumnWidth = 14.57
Columns("G:G").EntireColumn.AutoFit

MsgBox " İŞLEM TAMAM"
Range("g" & son + 2).Select

With ActiveCell.Font
.Bold = True
.Italic = True
.ColorIndex = 3
End With
Selection.NumberFormat = "dd/mm/yyyy"
Range("g" & son + 2).Select
ActiveCell.Offset(0, 1).Range("a1").Value = "ORTAK VADE"

Yukardaki kod F kolonundaki vadeleri I1 hücresınden G kolonunda boş olan hücreye kadar çıkartıp I2 den başlamak üzere sonucu yazıyor. F kolonunda farklı farklı vadeler mevcut. Amacım F kolundaki vadeleri aylık bazda hesaplatabilmek bunu nasıl yapabilirim.

 

[haso_excel]

Merhaba arkadaşlar,

Daha önce çalışan aşağıdaki kod ne olduda şimdi çalışmıyor acaba yardımcı olabilir misiniz. Amacım. G ve J kolonlarında dolu olan en son hücreyi bulup 2 satır altına ilgili kolonların toplamlarını aldırmak. çalıştırdığım zaman aşağıdaki mesajı alıyorum.

Compile error
Expected Function or variable

SON = [g65536].End(3).Row
sonf = [j65536].End(3).Row
Range("j" & sonf + 1) = (WorksheetFunction.Sum(Range("j2:j" & sonf)))
Range("g" & SON + 2) = (WorksheetFunction.Sum(Range("j2:j" & SON)) / 2) / (WorksheetFunction.Sum(Range("g2:g" & SON)) / 2) + [I1].Value