I have tried everything to move these records to a sheet called "Data" , but I wasn't able to get any good results. what I have been trying its underlined and the the records i want to transfer are in bold.
Private Sub CommandButton1_Click()
Dim sTgtSht As String
Dim sComboSht As String
Dim sTicketSht As String
Dim rngLastCell As Range
Dim lLastRow As Long
Dim sActiveSheet As String
Dim iListCount As Long
Dim lDelRow As Long
Dim bDel As Boolean
Dim R1 As String
If (bDel) Then
On Error Resume Next
ThisWorkbook.Names("INVOICE").Delete
On Error GoTo 0
ThisWorkbook.Names.Add Name:="INVOICE", RefersTo:=Worksheets(sTicketSht).Range("A2", "A31")
It is working, I fixed what it need to be fixed with your help the last time. Iam not having problems with the code, What am doing it is ok i just want to add one more thing, below the bold lines iam trying to move the records to a sheet called Data but it is not working....Dont be mad on me risviza, please be nice...