Anónimo
Programacion botones excel
Saludos Expertos en excel
Tengo un problema al programar un botón en una hoja en excel.
La situacion es la siguiente;
En mi hoja 2 introduzco valores en la celda A5, A10 y A15 (son diferentes cada vez) y deseo guardarlos en la hoja por medio de un botón.
Es decir, que una vez que tengan valor las 3 celdas antes mencionadas, al darle click
Al botón, se guarden los valores en la hoja 3 en el siguiente orden (A5 en b1, A10 en c1 y A15 en d1) y que al introducir nuevamente otros valores y darle click de nueva cuenta al botón, los nuevos datos se vayan guardando en la fila siguiente, es decir en b2, c2 y d2.
Ojala alguien pueda ayudarme.
Saludos
Tengo un problema al programar un botón en una hoja en excel.
La situacion es la siguiente;
En mi hoja 2 introduzco valores en la celda A5, A10 y A15 (son diferentes cada vez) y deseo guardarlos en la hoja por medio de un botón.
Es decir, que una vez que tengan valor las 3 celdas antes mencionadas, al darle click
Al botón, se guarden los valores en la hoja 3 en el siguiente orden (A5 en b1, A10 en c1 y A15 en d1) y que al introducir nuevamente otros valores y darle click de nueva cuenta al botón, los nuevos datos se vayan guardando en la fila siguiente, es decir en b2, c2 y d2.
Ojala alguien pueda ayudarme.
Saludos
1 respuesta
Respuesta de pollux_troy
1
Aca esta un pekeño codigo k acabo de hacer segun los datos k me dsite, tiralo en una macro y deberia resultarte (segun las celdas A5, A10 y A15, en B2, C2, D2 y si estan ocupadas en B3, C3 y D3 respectivamente)
Sub traspaso()
Dim i, j, columna, contador1, contador2 As Integer
i = 3
j = 2
columna = 1
contador1 = contador2 = 0
repetir:
If Worksheets("Hoja3").Cells(i + contador1, j).Value <> 0 Then
contador1 = contador1 + 1
GoTo repetir
Else
For contador2 = 1 To 3
Worksheets("Hoja3").Cells(i + contador1, j - 1 + contador2).Value = Worksheets("Hoja2").Cells(contador2 * 5, columna)
Next
End If
End Sub
Ojalá te sirva...
Sub traspaso()
Dim i, j, columna, contador1, contador2 As Integer
i = 3
j = 2
columna = 1
contador1 = contador2 = 0
repetir:
If Worksheets("Hoja3").Cells(i + contador1, j).Value <> 0 Then
contador1 = contador1 + 1
GoTo repetir
Else
For contador2 = 1 To 3
Worksheets("Hoja3").Cells(i + contador1, j - 1 + contador2).Value = Worksheets("Hoja2").Cells(contador2 * 5, columna)
Next
End If
End Sub
Ojalá te sirva...