Quick Documentation

This article contains a quick way to document stuff. I don't feel like explaining it today. The first CommanButton1_Click executes the ok subprocedure in the Module 1. I needed to put it in the Module so the scope of the button on the worksheet wouldn't limit me from changing the second workbook with the variable data.

Code for Documentation:

Private Sub CommandButton1_Click()
Call ok
End Sub

Sub ok()

Dim Value1 As String
Dim Value2 As String
Dim Value3 As String
Dim numberholder As Double
Dim i As Integer

Dim strArra(4) As String
Dim strArray(4) As String
Dim StrMsg As String

line45:
numberholder = InputBox("What row has the data that you want to document?")
Value1 = Range("A" & numberholder).Value
Value2 = Range("B" & numberholder).Value
Value3 = Range("C" & numberholder).Value



strArray(1) = Value1
strArray(2) = Value2
strArray(3) = Value3

strArra(1) = "Bank"
strArra(2) = "Stock"
strArra(3) = "Money"



StrMsg = "Do you want this selection, Yes or No?" & vbCr & vbCr
For i = 1 To UBound(strArray) - 1
    StrMsg = StrMsg & i & "-" & vbTab & strArra(i) & ":" & vbTab & strArray(i) & vbCr
Next i

answer = MsgBox(StrMsg, vbYesNo + vbInformation, "Click Yes to Accept this Selection or No to Select a new Row:")

If answer = 6 Then
    Else
GoTo line45:
End If

Range("AZ1").Value = Value1
Range("AZ2").Value = Value2
Range("AZ3").Value = Value3
Range("AZ4").Value = numberholder

Workbooks.Open Filename:=("C:\Users\18622\OneDrive\Desktop\Document PDF\Blank Document.xlsm")

Workbooks("Blank Document.xlsm").Activate

Range("AZ1").Value = Value1
Range("AZ2").Value = Value2
Range("AZ3").Value = Value3
Range("AZ4").Value = numberholder



End Sub

Code for Blank Document:

Private Sub CommandButton1_Click()

StrMsg = "Do you want to view/document image #1 or #2?" & vbCr & vbCr

answer = MsgBox(StrMsg, vbYesNo + vbInformation, "Click Yes for Image 1 or No for Image 2")

If answer = 6 Then
Sheets("Document #1 and #2").Select
Application.Goto Reference:="hello"
    Else
Application.Goto Reference:="hello2"
ActiveWindow.ScrollColumn = 15

End If


End Sub

Private Sub CommandButton2_Click()

Sheets("Movement Image").Select
Application.Goto Reference:="hello3"

End Sub

Private Sub CommandButton3_Click()
Sheets("System Booking #1 and #2").Select
Application.Goto Reference:="hello4"

End Sub

Private Sub CommandButton4_Click()
Sheets("Filepath").Select
Application.Goto Reference:="hello5"
End Sub

Private Sub CommandButton5_Click()
Sheets("What it looks like on documenta").Select
Application.Goto Reference:="hello6"
End Sub

Private Sub CommandButton6_Click()

Call ok2

End Sub

Sub ok2()

value1 = Range("AZ1").value
value2 = Range("AZ2").value
value3 = Range("AZ3").value
value4 = Range("AZ4").value

ActiveWorkbook.SaveAs Filename:="C:\Users\18622\OneDrive\Desktop\VBA Lessons\" & value1 & value2 & value3 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Workbooks("Documentation.xlsm").Activate

Range("D" & value4).value = "C:\Users\18622\OneDrive\Desktop\VBA Lessons\" & value1 & value2 & value3 & ".xlsm"
Range("E" & value4).Select
ActiveCell.FormulaR1C1 = "=hyperlink(RC[-1])"


Workbooks(value1 & value2 & value3 & ".xlsm").Close False

End Sub