Quantcast
Channel: Active questions tagged excel - Stack Overflow
Viewing all articles
Browse latest Browse all 88835

Why is my VBA button to save inputs from one Excel sheet into an output on another sheet not working?

$
0
0

I'm having trouble figuring out where I went wrong here. I've made a very similar button in other workbooks without trouble- what could be going wrong?

Sub CommandButton1_Click()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim r1 As Range, r2 As Range
    Dim v1 As Variant, v2 As Variant

    Set sh1 = Worksheets("Tool")
    Set sh2 = Worksheets("SaveFile")

    v1 = Array("D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "H4", "H5", "H8", "H9", "H10", "H11", "H12", "H13", "E17")
    v2 = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V")
    rw = sh2.Cells(Rows_Count, "C").End(xlUp).Offset(1, 0).Row

    For i = LBound(v1) To UBound(v1)
        Set r1 = sh1.Range(v1(i))
        Set r2 = sh2.Cells(rw, v2(i))
        r2.Value = r1.Value
    Next i
End Sub

Any advice?


Viewing all articles
Browse latest Browse all 88835


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>