64 bit olunca çalışmama

[askm]

Kolay gelsin.
bilgisayarda win7 32 bit ve office 32 bit 2010 kurulu idi. Format attık win7 64 bit ve office 2010 64 bit oldu. 32 bitte çalışan excel açlışmaz oldu. Private Declare PtrSafe Function kısımlarını değiştirdim. Ama aşağıdaki kısımda hata veriyor.

Private Sub UserForm_Initialize()

yuk = Me.Width
gen = Me.Height
buyuk = ""
'Combo.RowSource = "Sayfa1!E3:E" & Sheets("sayfa1").[E65536].End(3).Row


[b]For i = 1 To sut[/b]
Controls("Label" & i) = Sheets("veri").Cells(1, i).Value
Combo.AddItem Sheets("veri").Cells(1, i).Value
Controls("ComboBox" & i).ControlTipText = Sheets("veri").Cells(1, i).Value
Next i

Combo.Text = Combo.List(sutcom - 1)
'Combo_Change

'MsgBox kod1 & Chr(10) & kod2 & Chr(10) & kod3 & Chr(10) & kod4 & Chr(10) & kod5 & Chr(10) & kod6 & Chr(10) & kod7 & Chr(10) & kod8

Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H35000

End Sub

 

[Emir Hüseyin Çoban]

. . .

For i = 1 To sut bu satırda hata veriyorsa...
sut değişkeni için daha önce tanımlanan bir değer satırı olması gerekiyor. Onu silmiş olmalısınız.

Şuanda 1 den başlayıp sıfıra gitmek gibi bir işlem yaptığı için hata veriyordur.
Örneğin ilgili satırın üstüne sut=20 yazarak deneyiniz.

. . .

 

[askm]

VBA penceresinde. Tools - References menüsünü tıklayın.
Burada [MISSING] ile başlayan seçimleri kaldırarak denedim oldu.
İlginiz için teşekkürler.