VB Proje

[bozkayaberkay]

Arkadaşlar iyi akşamlar visual basic üzerinden bir projem var. Fakat kodlarda hatalarım olduğu için tam olarak çalışmıyor.
Müsait olan bir arkadaşımız yardımcı olursa sevinirim.

Aldığım hatalardan birisi:

Compile error:
Block if without End if

 

[YUSUF44]

Bu hata end if olmadan if kullandığınızda olur. Açtığınız her if için end if de kullanmalısınız.

 

[bozkayaberkay]

Private Sub CommandButton1_Click()
Dim str As String
Dim i As Long
Dim foundRow As Long

For i = 0 To ComboBox1.ListCount
If Worksheets("Flight").Cells(i, 1) = "" Then
foundRow = i



InsertFlight foundRow


'foundRow = SearchIdFlight

'If foundRow <> -1 Then

'UpdateFlight foundRow
'Else
' InsertFlight

End If

End Sub

kodum bu şekilde

 

[Orion1]

Buyurun.

Private Sub CommandButton1_Click()
Dim str As String
Dim i As Long
Dim foundRow As Long

For i = 0 To ComboBox1.ListCount
If Worksheets("Flight").Cells(i, 1) = "" Then
foundRow = i



InsertFlight foundRow


'foundRow = SearchIdFlight

'If foundRow <> -1 Then

'UpdateFlight foundRow
'Else
' InsertFlight

End If
[B][COLOR="Red"]next i[/COLOR][/B]

End Sub

 

[bozkayaberkay]

Buyurun.

Private Sub CommandButton1_Click()
Dim str As String
Dim i As Long
Dim foundRow As Long

For i = 0 To ComboBox1.ListCount
If Worksheets("Flight").Cells(i, 1) = "" Then
foundRow = i



InsertFlight foundRow


'foundRow = SearchIdFlight

'If foundRow <> -1 Then

'UpdateFlight foundRow
'Else
' InsertFlight

End If
[B][COLOR="Red"]next i[/COLOR][/B]

End Sub

Private Sub CommandButton1_Click()
Dim str As String
Dim i As Long
Dim foundRow As Long

For i = 0 To ComboBox1.ListCount
If Worksheets("Flight").Cells(i, 1) = "" Then
foundRow = i



InsertFlight foundRow


'foundRow = SearchIdFlight

'If foundRow <> -1 Then

'UpdateFlight foundRow
'Else
' InsertFlight

End If
Next i

End Sub

Debug vermiş olduğu yer

If Worksheets("Flight").Cells(i, 1) = "" Then

 

[YUSUF44]

Orda i değişkeni 0'dan başlatılmış. Cells(i, 1) ifadesi i=0 iken 0. Satır ile 1. Sütunun kesişim hücresi demek oluyor. Excelde 0.satır olmadığından doğal olarak hata veriyor. Eğer bu şekilde kullanacaksınız i değişkeni 1'den başlamalıdır.

 

[bozkayaberkay]

Orda i değişkeni 0'dan başlatılmış. Cells(i, 1) ifadesi i=0 iken 0. Satır ile 1. Sütunun kesişim hücresi demek oluyor. Excelde 0.satır olmadığından doğal olarak hata veriyor. Eğer bu şekilde kullanacaksınız i değişkeni 1'den başlamalıdır.

Çok teşekkür ederim. Ama bu seferde girdiyi yazıp insert dedğimide aynısından 20 tane yazdırdı

 

[YUSUF44]

Böyle çözüme ulaşmak zor. Her seferinde yeni bir sorun çıkabilir çünkü biz aslında nasıl bir dosya üzerinde çalışıp ne yapmaya çalıştığınızı bilmiyoruz.

Örnek dosya paylaşın ve dosyada tam olarak ne yapmaya çalıştığınızı açıklayın ki çözüm bulmaya çalışalım.