Private Sub UserForm_Initialize()
ListeyiYenile
End Sub
Sub ListeyiYenile()
Dim wsFirma As Worksheet
Dim SonSatir As Long
Set wsFirma = ThisWorkbook.Sheets("Firmalar")
lstFirmalar.Clear
SonSatir = wsFirma.Cells(Rows.Count, 1).End(xlUp).Row
If SonSatir > 1 Then
lstFirmalar.List = wsFirma.Range("A2:A" & SonSatir).Value
End If
End Sub
Arkadaşlar merhaba.
Yukarıdaki Makroyu çalıştırdığımda eğer "Firmalar" sayfasında kayıtlı firma yoksa kayıt yapıyor, kaydı tamamlar tamamlamaz aşağıdaki resimde görülen hatayı veriyor.
Söz konusu hatayı nasıl çözebilirim?
Yardımcı olacak arkadaşlara teşekkür ederim.
ListeyiYenile
End Sub
Sub ListeyiYenile()
Dim wsFirma As Worksheet
Dim SonSatir As Long
Set wsFirma = ThisWorkbook.Sheets("Firmalar")
lstFirmalar.Clear
SonSatir = wsFirma.Cells(Rows.Count, 1).End(xlUp).Row
If SonSatir > 1 Then
lstFirmalar.List = wsFirma.Range("A2:A" & SonSatir).Value
End If
End Sub
Arkadaşlar merhaba.
Yukarıdaki Makroyu çalıştırdığımda eğer "Firmalar" sayfasında kayıtlı firma yoksa kayıt yapıyor, kaydı tamamlar tamamlamaz aşağıdaki resimde görülen hatayı veriyor.
Söz konusu hatayı nasıl çözebilirim?
Yardımcı olacak arkadaşlara teşekkür ederim.
