Command Button to paste data from specific Cells of Specific sheet to specific Cells of Specific sheet

[xpost][/xpost]

excelforum.com/excel-programmi…earch-and-copy-paste.html

Hi, I have searched in many forums but don't get the best result the suit to my problem.
I have two worksheets of a workbook.
One is the "Data" and the other is a "Calculation".
First Condition: When I select any cell in between Column I8:I1220 of the Data Sheet, the cell value is immediately copied to the Calculation Sheet to the "I20" cell.
The is some calculation doing. After the calculation is done.

Second Condition: I want a command button that picks values of M20, R20, and T20 from "calculation" to the "Data" Sheet of the same row where the first data select. The data will be paste to W, X & Y cells of the selected cell row of the Data Sheet.
The First condition is to copy from the Data file to Calculation, I use the below code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 If Target.Count > 1 Then Exit Sub
 If Target.Column = 9 Then
 If Target = vbNullString Then
 Exit Sub
 Else
 Sheets("Calculation").[I20] = Target
 
With Sheets("Other")
 .[aq5] = Cells(Target.Row, 26)

 End With
 
 End If
 End If
 
End Sub

Second Condition: I need a command button code for the second condition to pick cell values of M20, R20, and T20 from "calculation" to Data of sheet select row and column of W, X & Y. If those cells have data already it will be updated and a message will show "data update".

Third Condition: When I select any cell in between Column I8:I1220 of the Data Sheet, (as you see Yellow Text) 26 no column data paste to "other" sheet in aq5 cell.
Here I also want to copy& paste 25 no columns to the "certificate" Sheet p20 cell. (If I write above like Yellow Text) it returns an error.

I hope someone helps me and would be greatly appreciated.

Hi,

I posted the same question to another forum.

Command Button to paste data to specific Cell of Specific Sheet with matched cell row

Wish to learn multiple solutions.

I have not found a better solution to doing it using the command button.

Wish someone help me for understanding and make easy my troublesome work.

Thanks in Advance

Hi,

I posted in other forum about the mentioned subject.

Command Button to paste data to specific Cell of Specific Sheet with matched cell rowto-paste-data-to-specific-cell-of-specific-sheet-with-matched-cell-row.1180236/

Here is the code

Sub Button2_Click()

Const kLookCol As Long = 9
Const kLookRowFirst As Long = 8
Const kLookRowLast = 1220


Dim xlApp As Excel.Application
Dim wksCalc As Excel.Worksheet
Dim wksData As Excel.Worksheet
Set xlApp = Excel.Application


With xlApp
    .ScreenUpdating = False
    .EnableEvents = False
End With

With ThisWorkbook
    Set wksCalc = .Sheets("Calculation")
    Set wksData = .Sheets("Data")
    Set Target = wksCalc.Cells(20, "I")

End With

With Target

         If .Cells.Count = 1 Then
            If .Row >= kLookRowFirst And .Row <= kLookRowLast Then
                If .Column = kLookCol Then
                    If Len(.Value) <> 0 Then
                        wksData.Cells(.Row, "W") = wksCalc.Cells(20, "M").Value
                        wksData.Cells(.Row, "X") = wksCalc.Cells(20, "R").Value
                        wksData.Cells(.Row, "Y") = wksCalc.Cells(20, "T").Value
                    End If
                End If
            End If
        End If
    End With
 
    Set wksCalc = Nothing
    Set wksData = Nothing
With xlApp
    .EnableEvents = True
    .ScreenUpdating = True
End With
 Set xlApp = Nothing
 
End Sub

Please see the link attached file, if anyone could rectify the code will be grateful.

Hi, Everybody

Need Help About Above Code.

Please.

Thanks in Advance

Thanks for your response.

I am attaching an example Testing.xlsm file.

Please correct the code where necessary.

Thanks again.

Hi, royUK,

I have Two worksheets, Bill and Support. Four cells in worksheet "Support" (Cells are I20, M20, R20, T20) and Four-column in worksheet "Bill" ( I, W, X, Y) which row start from 9 -1220.
If the command button is clicked.
Cell I20 value of "support" search in between Cells I9:I1220 of Bill Worksheet. If match found then M20, R20, and T20 Value paste in the corresponding matched row of W, X, Y. and also popup a massage "value updated".

Can you help me on that matter?

Thank You.

Hi, any suggestion

Please.

"Data update using command Button"

I have Two worksheets, Data and Calculation. Four cells in worksheet "Calculation" (Cells are I20, M20, R20, T20) and Four-column in worksheet "Data" ( I, W, X, Y) which row start from 9 -1220.

If the command button is clicked.

Cell I20 value of "Calculation" search in between Cells I9:I1220 of Data Worksheet. If match found then M20, R20, and T20 Value of "Calculation" Sheet paste in the corresponding matched row of W, X, Y. of Data worksheet and also popup a massage "value updated".

Attachment Testing.xlsm for understanding the file system.

Thanks in advance