Merhaba;
Daha önce 32 bit de hazırlamış olduğum makro.
Bilgisayarıma 64 Bit Windows 10 formatından sonra hata veriyor. Yardımcı olurmusunuz?
Bu arada kullanmış olduğum Office 2010
Yardımlarınız için şimdiden teşekkürler.
Private Sub UserForm_Initialize()
Set D = CreateObject("Scripting.Dictionary")
With D
son = Sheets("PERSONEL").Cells(Rows.Count, 1).End(xlUp).Row
For t = 2 To son 'satırlar arası döngü
If Not .exists(Sheets("PERSONEL").Cells(t, 2).Value) Then
.Add Sheets("PERSONEL").Cells(t, 2).Value, Nothing
End If
Next
ListBox1.ColumnCount = 1
ListBox1.List = Application.Transpose(.keys)
End With
ComboBox8.SetFocus
EkranTemizle.Enabled = False
PersonelSil.Enabled = False
DeğişikliğiKaydet.Enabled = False
CommandButton6.Enabled = False
CommandButton3.Enabled = False
TextBox20 = Sheets("PERSONEL").Range("AY1").Value
TextBox21 = Sheets("PERSONEL").Range("AZ1").Value
End Sub
Daha önce 32 bit de hazırlamış olduğum makro.
Bilgisayarıma 64 Bit Windows 10 formatından sonra hata veriyor. Yardımcı olurmusunuz?
Bu arada kullanmış olduğum Office 2010
Yardımlarınız için şimdiden teşekkürler.
Private Sub UserForm_Initialize()
Set D = CreateObject("Scripting.Dictionary")
With D
son = Sheets("PERSONEL").Cells(Rows.Count, 1).End(xlUp).Row
For t = 2 To son 'satırlar arası döngü
If Not .exists(Sheets("PERSONEL").Cells(t, 2).Value) Then
.Add Sheets("PERSONEL").Cells(t, 2).Value, Nothing
End If
Next
ListBox1.ColumnCount = 1
ListBox1.List = Application.Transpose(.keys)
End With
ComboBox8.SetFocus
EkranTemizle.Enabled = False
PersonelSil.Enabled = False
DeğişikliğiKaydet.Enabled = False
CommandButton6.Enabled = False
CommandButton3.Enabled = False
TextBox20 = Sheets("PERSONEL").Range("AY1").Value
TextBox21 = Sheets("PERSONEL").Range("AZ1").Value
End Sub