Fejlmeddelelse fra min userform
Hej håber der er en der kan hjælpe mig da jeg ikke forstår hvad jeg gør forkert:)når jeg kører min gemme macro i vba får jeg denne fejl.
Run-time error '1004'
Application-definned or objekt - defined error
her er min kode.
Private Sub cmbGem_Click()
Dim CF As String, Datafil As String, DataArk As String, RW As Long
Application.ScreenUpdating = False
' Me.ListB_søgResultat.Clear
Me.ListB_søgResultat.ColumnHeads = True
Datafil = "KursusListe2019.xlsm" ' Filnavnet på gemmefilen
DataArk = "Data" ' Navnet på opslagsarket
If Not WorkbookIsOpen(Datafil) Then
Workbooks.Open Filename:="Y:\_Confidential\Tr_Vestas\udvikling" & "\" & Datafil
Else
Windows(Datafil).Activate
End If
DataArk = "Data"
Sheets(DataArk).Select
ActiveSheet.Range("a3").Select
RW = ActiveSheet.Range("a3").End(xlDown).Row + 1
Cells(RW, 1).Value = Me.Txb_søgefelt.Value // Det er denne linie der bliver markeret.
ActiveWorkbook.Close True