Dante Amor

Te anexo la macro con la instrucción para pintar de verde la celda Private Sub CommandButton1_Click() 'Por.Dante Amor Dim fec1 As Date, fec2 As Date Set h1 = Sheets("datos") Set h2 = Sheets("datosm") ' h2.Cells.Clear h1.Rows(1).Copy h2.Rows(1) ' fec1...

Esta sería una opción Sub ultimafila_ocupada() Selection.End(xlDown).Offset(1, 0).Select End Sub Lo que no entendí es esto: "La macro quiero que se ejecute en la hoja 3 cuando yo me pase por ejemplo a la hoja1" Quieres que cuando te pases a la hoja1,...

Ya lo intestaste con 2 ó 3 for, ¿para ver si hace lo que necesitas? Ya lo intentaste con los 20 ciclos pero que vaya de 0 a 1, es decir, que los ciclos no sean con números muy grandes. Después veo que tienes una condición, si se cumple escribe en las...

Pon la siguiente rutina en un botón para detener la macro Sub Detener()'Por.Dante Amor Sheets("Tablero").[Z2] = "x" On Error Resume Next Application.OnTime Now + TimeValue("00:00:01"), "Detener", , FalseEnd Sub

Esta macro ejecutará solamente una vez el tablero: Sub unacopia() 'Por.Dante Amor Application.ScreenUpdating = False CopiarTablero Application.ScreenUpdating = True End Sub Esta es la macro del tablero: Sub CopiarTablero() 'Por.Dante Amor Set h1 =...

¿Y dónde quieres el resultado? Según tu ejemplo, el resultado es 15, en dónde quiere poner ese 15.

Ejecuta la siguiente macro Sub IPtest() 'Referencia: http://www.vbaexpress.com/kb/getarticle.php?kb_id=537 Dim wsh As Object Dim RegEx As Object, RegM As Object Dim FSO As Object, fil As Object Dim ts As Object, txtAll As String, TempFil As String...

Te anexo la macro actualizada. Después de registrar en la hoja, en el combo1 te pongo la fecha, en el textbox2 te pongo lo que tienes en el textbox3, también te puse esto: h1.Cells(u, 2) = CDate(ComboBox1) Para que te ponga en la celda una fecha, ya...

Disculpa, pero no entendí. Qué datos son los que hay que leer, ¿los de la hoja1? ¿Los datos a copiar son de la hoja1 a la hoja2? Por qué dices que Código = Código. En tu ejemplo el Código 110, tiene existencia 0, ¿por qué aparece en la hoja2 con...

Si siempre quieres que aparezca el dato de la celda "B4" en el textbox1, pon la cleda "B4" en la propiedad ControlSource del textbox1: