Two Input Boxes

[BuffaloGuy]

I have a table where the first column is always full, and the next nine columns are empty and could fill on a case by case basis. I have a click button that asks to type the address in an input box that I want in cell L3 and after it is entered I have a second input box that would put the city, state, zip in L4. If you click the button again, the next should go in M3, M4 respectively and so on (the table is in K3:T4). I was just testing the getting the first one to work before getting the second set to work and I can't get that far with my current knowledge base. All help is welcome.

Sub Location_Click()

    Dim AddressStreet As Variant
    Dim CityStateZip As Variant
    
    AddressStreet = InputBox("Enter Business Address:")
    Range("Notes!L3").Value = AddressStreet
    
    CityStateZip = InputBox("Enter Business Address:")
    Range("Notes!L4").Value = CityStateZip
    
End Sub

 

[rowebca]

I have a table where the first column is always full, and the next nine columns are empty and could fill on a case by case basis. I have a click button that asks to type the address in an input box that I want in cell L3 and after it is entered I have a second input box that would put the city, state, zip in L4. If you click the button again, the next should go in M3, M4 respectively and so on (the table is in K3:T4). I was just testing the getting the first one to work before getting the second set to work and I can't get that far with my current knowledge base. All help is welcome.

Sub Location_Click()

    Dim AddressStreet As Variant
    Dim CityStateZip As Variant
 
    AddressStreet = InputBox("Enter Business Address:")
    Range("Notes!L3").Value = AddressStreet
 
    CityStateZip = InputBox("Enter Business Address:")
    Range("Notes!L4").Value = CityStateZip
 
End Sub

Change:

Range("Notes!L3").Value = AddressStreet = AddressStreet > Sheets("notes").range("l3").value = AddressStreet

Regards,
GB

 

[BuffaloGuy]

GB! Thanks for your input, that worked for getting the data into L3, is there a way to get it into the next empty cell instead? so I could add the next location in M3?

 

[BuffaloGuy]

This is what I was trying:

Sub Location_Click()

    Dim AddressStreet As Variant
    Dim CityStateZip As Variant
    Dim c As Long

    c = Worksheets("Notes").Range(Column.Count, "3").End(xlRight).Offset(0, 1).Column
    AddressStreet = InputBox("Enter Business Address:")
    
    Sheets("Notes").Range(c, "3").Value = AddressStreet
    'CityStateZip = InputBox("Enter City, State, Zip:")
    'Sheets("Notes").Range("l4").Value = CityStateZip
    
End Sub

 

[kvsrinivasamurthy]

Try.

Sub Location_Click()
    Dim A&
    For A = Range("L3").Column To Range("T3").Column
    Sheets("Notes").Cells(3, A) = InputBox("Enter Business Address (Street):", "STREET")
    Sheets("Notes").Cells(4, A) = InputBox("Enter Business Address (City,State,Zip):", "ADDRESS")
    If Sheets("Notes").Cells(4, A) = "" Then Exit Sub
    Next A
End Sub