Değişken tanımlama

[s.savas]

Merhaba arkadaşlar.
Userform daki CheckBox1 için değişken tanımlıyorum, fakat hata mesajı alıyorum.
CheckBox1 için uyarladığım kod aşağıdaki gibidir.

Private Sub CheckBox1_Click()
Dim i As Integer, j As Integer, s As Worksheet, toplam As Double
Set s = Sheets("şFiyat")
j = 5
For i = 5 To Cells(65536, 5).End(xlUp).Row(3)
If Me.CheckBox1.Value = False Then
i = i + 1
j = j + 1
End If
s.Cells(j, "d").Value = "Toplam Tutar"
s.Cells(j, "e").Value = toplam
s.Cells(j, "e").Value = WorksheetFunction.Sum(s.Range("e5:F" & j - 1))
End Sub

şFiyat isimli sekmedeki E sütununun 5.satırdan itibaren toplamını almak istiyorum.
End Sub satırında hata mesajı veriyor.

 

[uzmanamele]

merhaba

for-next döngünüz eksik.

 

[s.savas]

Private Sub CheckBox1_Click()
Dim i As Integer, j As Integer, s As Worksheet, toplam As Double
Set s = Sheets("şFiyat")
j = 5
For i = 5 To Cells(65536, 5).End(xlUp).Row(3)
If Me.CheckBox1.Value = False Then
i = i + 1
j = j + 1
Next
s.Cells(j, "d").Value = "Toplam Tutar"
s.Cells(j, "e").Value = toplam
s.Cells(j, "e").Value = WorksheetFunction.Sum(s.Range("e5:F" & j - 1))
End Sub

Hocam burada ise Next de hata veriyor.
(Deneme yanılma ile yapmaya çalışıyorum)

 

[Korhan Ayhan]

Selamlar,

Bu seferde Next ifadesinden önceki End If ifadesini silmişsiniz.

For ile başlayan satır Next ile bitmelidir.
If ile başlayan satır End If ile bitmelidir.

Bu kriterlere dikkat etmelisiniz.

 

[s.savas]

Private Sub CheckBox1_Click()
Dim i As Integer, j As Integer, s As Worksheet, toplam As Double
Set s = Sheets("şFiyat")
j = 5
j = j + 1
If Me.CheckBox1.Value = False Then
End If
[U][COLOR="Red"]For i = 5 To Cells(65536, 5).End(xlUp).Row(3)[/COLOR][/U]
Next
s.Cells(j, "d").Value = "Toplam Tutar"
s.Cells(j, "e").Value = toplam
s.Cells(j, "e").Value = WorksheetFunction.Sum(s.Range("e5:e" & j - 1))
End Sub

Bu seferde renkli satırda hata mesajı veriyor.

 

[Korhan Ayhan]

Selamlar,

Siz bu kodlarla ne yapmayı amaçlıyorsunuz. Örnek dosya ekleyerek açıklarmısınız.

 

[s.savas]

Selamlar,

Siz bu kodlarla ne yapmayı amaçlıyorsunuz. Örnek dosya ekleyerek açıklarmısınız.

Korhan hocam teşekkür ederim ilginize.
Aşağıdaki kodla toplam almayı başardım. Ancak işareti kaldırınca toplam satırını silmeyi başaramadım.

Private Sub CheckBox1_Click()
Dim satır As Integer, s As Worksheet, toplam As Double
Set s = Sheets("şFiyat")
satır = Range("e65536").End(3).Row + 1
If Me.CheckBox1.Value = True Then
End If
s.Cells(satır, "d").Value = "Toplam Tutar"
s.Cells(satır, "f").Value = TextBox8.Value
s.Cells(satır, "g").Value = TextBox9.Value
End Sub

1.aşamam;
Listboxa aldığım veriler tamam olunca şFiyat (şablon) sekmesindeki firmaya ait teklifi toplam alarak sonlandırmak.
2.aşamam;
şFiyat sekmesinde sonlandırılan firmaya ait teklif bilgilerini 3.satır ile son dolu satır arasındaki verileri Fiyatlar isimli sekmeye 10. satırdan itibaren kopyalamak.

 

[uzmanamele]

merhaba

yazmaya çalıştığınız kodları bu şekilde kurgulamaya çalışınız.

sub deneme()
..
..
for ...
if ... then
..
..
end if
...
...
next
end sub

 

[s.savas]

merhaba

yazmaya çalıştığınız kodları bu şekilde kurgulamaya çalışınız.

sub deneme()
..
..
for ...
if ... then
..
..
end if
...
...
next
end sub

Hocam teşekkür ederim.
Bir arkadaşın da yardımıyla arzu edilen işlemin %50 lik kısmını tamamladım.
Kodlar aşağıdaki gibidir.

Private Sub CheckBox1_Click()
Dim i As Integer, j As Integer, s As Worksheet
With ActiveSheet
j = .Cells(.Rows.Count, "E").End(xlUp).Row
    End With
    Set s = Sheets("şFiyat")
If Me.CheckBox1.Value = False Then
s.Cells(j, "e").Value = ""
s.Cells(j, "f").Value = ""
s.Cells(j, "g").Value = ""
Else
s.Cells(j + 1, "e").Value = "Toplam Tutar"
s.Cells(j + 1, "f").Value = TextBox8.Value
s.Cells(j + 1, "g").Value = TextBox9.Value
End If
End Sub

Yukarıdaki kod ile şFiyat isimli sekmede hazırlanan bilgiler Fiyatlar isimli sekmeye CheckBox1 vasıtasıyla 10.satırdan itibaren kopyalanmaktadır.
Ancak şFiyat isimli sekmedeki bilgiler yenilenince, Fiyatlar isimli sekmeye kopyalanınca 10. satırdaki verilerde silinmektedir.
Sizden ricam şFiyat isimli sekmede yenilenen bilgilerin Fiyatlar isimli sekmeye son dolu satırdan itibaren kopyalanması için gerekli kodları tanımlamanızdır.
İyi akşamlar diliyorum.