NO REPLY FOR MY PROBLEM

Respected@ mtarler Sir ,

I had posted my problem "DATA TRANSFERRING IN TWO EXCEL SHEET AT A TIME" by pressing SAVE BUTTON on 17-05-2022 using VBA CODE as given below.

Sub SaveData()

Dim ws As Worksheet
Dim wt As Worksheet
Dim wt As Worksheet

Dim s As Long
Dim t As Long
Dim r As Long

Application.ScreenUpdating = False

Set ws = Worksheets("ITEM RECEIVED")
Set wt = Worksheets("SUPPLIER LIST")
Set wt = Worksheets("ITEM LIST")

' Find first empty row in columns A:M on SUPPLIER LIST Sheet

t = wt.Range("A:J").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

' Copy Item Name and Item Quantity

For s = 1 To 4

wt.Cells(t, 2 * s + 2).Value = ws.Range("F" & s + 2).Value
wt.Cells(t, 2 * s + 3).Value = ws.Range("E" & s + 2).Value
wt.Range("M" & t).Value = ws.Range("X5").Value

Next s

'Copy Date

wt.Range("B" & t).Value = ws.Range("A5").Value

'Copy Invoice No

wt.Range("C" & t).Value = ws.Range("B5").Value

'Copy Company Name

wt.Range("D" & t).Value = ws.Range("C5").Value

' Find first empty row in columns A:C on ITEM LIST Sheet

t = wt.Range("A:C").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

' Copy Item Code and Item Name

For s = 1 To 4

wt.Cells(t, 2 * s + 2).Value = ws.Range("D" & s + 2).Value
wt.Cells(t, 2 * s + 3).Value = ws.Range("E" & s + 2).Value

Next s

Application.ScreenUpdating = True

End Sub

The Above stated code I have used for a Work book for transferring Data at a time in to Sheet2 and Sheet3 simultaneously from Sheet1 by pressing SAVE Button from which data would be transferred. And I confirm that there is must be fatal mistake in the coding which I have used. when if found SUPPLIER NAME and ITEM NAME is already there in Sheet2 and if the same
thing is adopted in next in Sheet1 with different Invoice No then ITEM CODE and ITEM NAME will not be repeat in Sheet2, as per row wise in Sheet1) ITEM RECEIVED Unfortunately, above
stated code not work properly. Is it possible for transferring schedule data in both sheet at a time by pressing SAVE BUTTON? May I get help? With regards.
on the same date I got VBA Code from our respected "COMMUNITY TEAM MEMBER " Mr. Subodh_Tiwari_sktneer Sir as below

Sub SaveData()

Dim wsItemRecd As Worksheet
Dim wsSupplier As Worksheet
Dim wsItemList As Worksheet
Dim s As Long
Dim t As Long
Dim r As Long

Application.ScreenUpdating = False

Set wsItemRecd = Worksheets("ITEM RECEIVED")

Set wsSupplier = Worksheets("SUPPLIER LIST")

Set wsItemList = Worksheets("ITEM LIST")

' Copy Item Name and Item Quantity

For s = 1 To 4
' Find first empty row in columns A:J on SUPPLIER LIST Sheet
t = wsSupplier.Range("A:J").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

wsSupplier.Cells(t, 2 * s + 2).Value = wsItemRecd.Range("F" & s + 2).Value

wsSupplier.Cells(t, 2 * s + 3).Value = wsItemRecd.Range("E" & s + 2).Value

wsSupplier.Range("M" & t).Value = wsItemRecd.Range("X5").Value

Next s

'Copy Date

wsSupplier.Range("B" & t).Value = wsItemRecd.Range("A5").Value

'Copy Invoice No

wsSupplier.Range("C" & t).Value = wsItemRecd.Range("B5").Value

'Copy Company Name

wsSupplier.Range("D" & t).Value = wsItemRecd.Range("C5").Value

' Copy Item Code and Item Name

For s = 1 To 4
' Find first empty row in columns A:C on ITEM LIST Sheet
t = wsItemList.Range("A:C").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

wsItemList.Cells(t, 2 * s + 2).Value = wsItemRecd.Range("D" & s + 2).Value

wsItemList.Cells(t, 2 * s + 3).Value = wsItemRecd.Range("E" & s + 2).Value

Next s

Application.ScreenUpdating = True

End Sub

i used the same above in my project but it not works properly. On 26-05-2022 I posted the same problem in caption "NO REPLY FOR MY PROBLEM" and ther is no incident of TWEAK/FIX.
ultimately i am now feeling that it is completely the matter of mother tongue. actually my mother tongue is BENALI , I live in BENGAL of INDIA and i understand that i cannot
explain my problem to YOU properly.i am presenting the sheet picture as whst i want.

Pic. ITEM LIST Sheet

Pic. SUPPLIER LIST Sheet

Pic. ITEM RECEIVED Sheet