Dante Amor

En la macro puedes, poner la hoja, el rango, el nombre y la ruta del archivo Sub Exportar_a_Txt() 'Por.Dante Amor nFileNum = FreeFile nombrearchivo = "prueba" rutaarchivo = ThisWorkbook.Path & "\" & nombrearchivo & ".txt" Set h =...

Pero en la celda A1 tienes que tener un texto Si pusiste en la celda 00:01:00 y lo ves como la siguiente imagen, significa que tienes una hora Entonces debes poner .text y estás poniendo .value tiempo = Sheets("clientes").Range("a1").Text...

Te envié la macro para distribuir en turno y sala. Para realizar la distribución por persona, tengo que ver en dónde vas a poner el número de personas, en qué columna están las personas y en dónde quieres el turno y sala. Podrías poner una imagen de...

Envíame un nuevo archivo y me explicas cómo pasas de la hoja "PASO1" a la hoja "PASO2" Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Francisco Jaimes” y el título de esta pregunta.

Según tu imagen tienes en DN19 la palabra "Importe" Luego en la celda EM22 tienes el valor 20, ese valor 20 lo quieres en la celda Y22, ¿correcto? Ahora en la celda EM23 tienes el valor 20, ¿ese 20 lo quieres en la celda Y23? En la celda EM24 tienes...

Puedes poner una imagen de lo que tienes. ¿Cuándo dices archivos te refieres a una lista de nombre que tienes en una hoja de excel? ¿En qué columna tienes la fecha? Y cómo quieres el mensaje, puedes poner un ejemplo

Esta puede ser una opción, la macro se ejecutará solamente una vez, cuando cambies la celda L2 a "SI" nuevamente se ejecutará una vez. Private Sub Worksheet_Calculate() If Range("A5") = 1 And Range("A7") = 1 And Range("A9") = 1 And Range("L2") = "SI"...

Pero no pusiste qué dato del listbox quieres poner en la celda A9 "presione un botón (Seleccionar) y este lleve la información hasta la celda A9 de la Hoja3" Te pongo un ejemplo, voy a pasar 2 datos del registro seleccionado, la columna 0 y la...

Te anexo el código para el menú. Tal vez solamente te haga falta utilizar Repaint para actualizar el userform, de cualquier forma revisa el vídeo y el código. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal...

Te anexo el código ult_col = Cells(6, Columns.Count).End(xlToLeft).Column If ult_col > 1 Then ult_col = ult_col - 1 dato = Cells(6, ult_col) Else cato = Cells(6, ult_col) End If Si la última columna es la 1, no se le puede restar 1 porque enviaría...