Inputboxes VBA

[Joseph111]

Hello all

I will be thankful to help me.

I would like to pop inputboxes, when I open specific worksheet.

My purpose is to pop the first one when I open the sheed, after that to ask me "Enter the code" input code, when I enter the code to pop another input box with 10/11 rows ( details for the code).

And I would like to have the posibility to input all data for this code in all rows, and after click OK all the data to enter in each specific cell according to the information.

For example:

A1 A2 A3 A4
Code Name Color Size .......................
111

In the first box to enter 111, after that another box to ask me input Name,color,size and etc. When I click OK these data to enter in A2(name), A3(color), A4(size)

Is the VBA code is complicated?

Thank you in advance!

 

[ManiacB]

Place this code in your sheet module for it to activate when you open the sheet.
I wrote it to prevent overwriting if the cells contain data.

Private Sub Worksheet_Activate()
If [A1].Value = "" Then
    [A1].Value = InputBox("Enter Code", "Code")
End If
If [B1].Value = "" Then
    [B1].Value = InputBox("Enter Name", "Name")
End If
If [C1].Value = "" Then
    [C1].Value = InputBox("Enter Color", "Color")
End If
If [D1].Value = "" Then
    [D1].Value = InputBox("Enter Size", "Size")
End If
End Sub

 

[Joseph111]

Hello Thanks for the replu. It works

But my idea is not exactly this, If input the code in the first inputbox the system automaticaly to find the row.After that to ask us for all the data.

I mean for example if we have 6 rows and 6 columns in the first column are the codes.

The rest column are empty.

A B C D E F
1 code1
2 code2
3 code3
4 code4
6 code5

In the first inputbox to input the code(for example: code3), after that another inputbox to ask us for all the data and they will enter in B3, C3, D3, E3, F3

And according this idea if we have 1000 codes we will have the posibility to input the data for all of them without searching every one.

Thanks!

 

[ManiacB]

This code will work for an indefinite number of rows and will ask for the value showing the cell that will populate. Let me know if you have questions.

Private Sub Worksheet_Activate()
Dim i, lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 1).Value = "" Then
    Cells(i, 1).Value = InputBox("Enter Code for cell " & Cells(i, 1).Address, "Code")
End If
If Cells(i, 2).Value = "" Then
    Cells(i, 2).Value = InputBox("Enter Name for cell " & Cells(i, 2).Address, "Name")
End If
If Cells(i, 3).Value = "" Then
    Cells(i, 3).Value = InputBox("Enter Color for cell " & Cells(i, 3).Address, "Color")
End If
If Cells(i, 4).Value = "" Then
    Cells(i, 4).Value = InputBox("Enter Size for cell " & Cells(i, 4).Address, "Size")
End If
Next i
End Sub

 

[Joseph111]

This code will work for an indefinite number of rows and will ask for the value showing the cell that will populate. Let me know if you have questions.

Private Sub Worksheet_Activate()
Dim i, lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 1).Value = "" Then
    Cells(i, 1).Value = InputBox("Enter Code for cell " & Cells(i, 1).Address, "Code")
End If
If Cells(i, 2).Value = "" Then
    Cells(i, 2).Value = InputBox("Enter Name for cell " & Cells(i, 2).Address, "Name")
End If
If Cells(i, 3).Value = "" Then
    Cells(i, 3).Value = InputBox("Enter Color for cell " & Cells(i, 3).Address, "Color")
End If
If Cells(i, 4).Value = "" Then
    Cells(i, 4).Value = InputBox("Enter Size for cell " & Cells(i, 4).Address, "Size")
End If
Next i
End Sub

ManiacB Thank you for your help

My idea is similar but i didn`t explane very well:

I mean that I have the codes:
1. When the worksheet is active to appear the message "Input code"
1a. When I input the code.The system automatically find the row with this code ( for example code333)
2.After that to pop up another message "input name"
2a.When the name is written into the box this value to enter in B3
3.After that another to pop up another box "Input color"
3a. This value to be saved in cell C3
..................................
and etc to the last parameter for the code for example K3



A B C D
(code) (name) (color) (size)
code111
code222
code333
code444

I hope that my explanation is clear, Thank you in advance

 

[ManiacB]

Try this

Private Sub Worksheet_Activate()
Dim i, lastrow, code, rw As Long

lastrow = Cells(Rows.Count, 1).End(xlUp).Row
code = InputBox("Which code are you searching for ", "Code")
i = Range("A:A").Find(code).Row

If Cells(i, 2).Value = "" Then
    Cells(i, 2).Value = InputBox("Enter Name for code " & code, "Name")
End If
If Cells(i, 3).Value = "" Then
    Cells(i, 3).Value = InputBox("Enter Color for code " & code, "Color")
End If
If Cells(i, 4).Value = "" Then
    Cells(i, 4).Value = InputBox("Enter Size for code " & code, "Size")
End If

End Sub

 

[Joseph111]

Private

Try this

Private Sub Worksheet_Activate()
Dim i, lastrow, code, rw As Long

lastrow = Cells(Rows.Count, 1).End(xlUp).Row
code = InputBox("Which code are you searching for ", "Code")
i = Range("A:A").Find(code).Row

If Cells(i, 2).Value = "" Then
    Cells(i, 2).Value = InputBox("Enter Name for code " & code, "Name")
End If
If Cells(i, 3).Value = "" Then
    Cells(i, 3).Value = InputBox("Enter Color for code " & code, "Color")
End If
If Cells(i, 4).Value = "" Then
    Cells(i, 4).Value = InputBox("Enter Size for code " & code, "Size")
End If

End Sub

Hello
Thanks it works very well, as I want thanks for your help

Please for something else, How can I coppy the information from another sheet while some of the boxes is active? Because it`s not possible.