UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

ulukai2


Buen dia,

En el formato adjunto e creado un Botón para agregar defectos que esta cerca de la celda A38, este va agregando los defectos y llega hasta el item 15 en la celda D52.

Quiero que cuando llegue a la Celda D52 y se agregue otro defecto, brinque automáticamente al item 16 de la celda (P37) y así sucesivamente hasta llegar Item 30 (P52)


Adjunto link de mi archivo:


[url=https://www.dropbox.com/s/bgrduv0cn2g5m2u/FRC Nuevo]MiFormato[/url]

De antemano muchas gracias por la pronta respuesta.



saludos,
Archivos
FRC Nuevo formato.zip
No tienes los permisos para descargar los archivos.
(48 KB)

adolfo castro


Private Sub CommandButton1_Click()
Dim fila As Integer
Dim final As Integer
Dim datos As Variant
Dim columna As Integer
Hoja1.Select
datos = TextBox1
If Cells(52, 4).Value <> "" Then

columna = 16



Else

columna = 5



End If
For fila = 38 To 52
     
    If ActiveSheet.Cells(fila, columna) = "" Then
            final = fila
        Exit For
       
     End If
Next
ActiveSheet.Cells(final, columna) = datos

TextBox1 = Empty

End Sub

3RESUELTO Excelente el 16/10/15, 05:32 pm

ulukai2


Muchas gracias amigo, eso es exactamente lo que buscaba, claro y consiso.

Seguire automatizando el formato cuando me vuelva a trancar, les aviso ,

Gracias.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.