Dear Friends,
I need your expertise in the VBA coding for data entry from one excel workbook to several excel work sheets. I tried with some coding to transfer the Data, it worked fine in sheet 1, but when i tried to make it to select and transfer data to different sheets, it is showing error. I tried several time re-writing this code with If function. none of them works, it always showing error. Here i attached the Workbook mydata2.xlsm as a main Data Entry sheet and when i click the command button it have to register in another excel workbook named postings2.xlsx. Every time while i Run the Program i'm getting "Else without if" Error. please let me know what wrong in my coding.
Dim itemprice As String
Dim itemname As String
Dim partname As String
Dim car As String
Dim mydata As Workbook
Worksheets("sheet1").Select
itemname = Range("B1")
Worksheets("sheet1").Select
itemprice = Range("B2")
Worksheets("sheet1").Select
partname = Range("B3")
Worksheets("sheet1").Select
car = Range("B4")
If car = "Z01" Then
Set mydata = Workbooks.Open("C:\Users\RAJ TAR\Desktop\projects\postings2.xlsx")
Worksheets("Z01").Select
Worksheets("Z01").Range("a1").Select
RowCount = Worksheets("Z01").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Z01").Range("A1")
.Offset(RowCount, 0) = itemname
.Offset(RowCount, 1) = itemprice
.Offset(RowCount, 2) = partname
.Offset(RowCount, 3) = car
ElseIf car = "Z02" Then
Set mydata = Workbooks.Open("C:\Users\RAJ TAR\Desktop\projects\postings2.xlsx")
Worksheets("Z02").Select
Worksheets("Z02").Range("a1").Select
RowCount = Worksheets("Z02").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Z02").Range("A1")
.Offset(RowCount, 0) = itemname
.Offset(RowCount, 1) = itemprice
.Offset(RowCount, 2) = partname
.Offset(RowCount, 3) = car
Else
Set mydata = Workbooks.Open("C:\Users\RAJ TAR\Desktop\projects\postings2.xlsx")
Worksheets("Z03").Select
Worksheets("Z03").Range("a1").Select
RowCount = Worksheets("Z03").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Z03").Range("A1")
.Offset(RowCount, 0) = itemname
.Offset(RowCount, 1) = itemprice
.Offset(RowCount, 2) = partname
.Offset(RowCount, 3) = car
End If
End With
mydata.Save
Workbooks("postings2.xlsx").Save
Workbooks("postings2.xlsx").Close
Range("B1:B4").ClearContents
End Sub
Thank you in Advance.
Regards,
Raj TAR
Bookmarks