Dante Amor

Puedes limitar la longitud de lo capturado, pero no cuando estás capturando el texto. Podrías capturar el texto en un Control deTextbox puede ser en uno Control ActiveX o de un UserForm y con la propiedad del Textbox limitar la cantidad de...

Tal vez tienes algo por ahí oculto, mejor inténtalo con un nuevo libro para que veas cómo debe hacerse y después le vas a agregando lo que tienes en el otro libro.

Si tienes un ciclo for que va desde la celda 1 hasta la última celda con datos de la columna A, podría ser así: for i = 1 to range("A" & rows.count).end(xlup).row x = range("A" & i).value next Solamente como breviario: Si pones esto: x = range("a1" &...

Prueba con el formato de celdas. Selecciona la celdas o celdas donde quieras el prefijo. Selecciona la opción Personalizada. En tipo escribe: "LEG"# Presiona Aceptar La otra opción, es con código VBA. Pon la siguiente macro en los eventos de tu hoja...

Te anexo la macro Sub Guarda_Hojas() ' Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" Sheets(Array("Hoja3", "Hoja4", "Hoja5", "Hoja6")).Copy ActiveWorkbook.SaveAs Filename:=ruta & "hojas" &...

[H o l a María: Buena la explicación y el ejemplo, solamente te faltó mencionar en dónde se va a pegar el código. En tu ejemplo, se copia el código 1234, pero en dónde quieres que lo ponga. Y otro detalle, en tu explicación mencionas que el valor...

Para encontrar los únicos necesitamos utilizar otra columna. En la columna D, en la celda D2, pon la siguiente fórmula: =CONTAR.SI(B2:$B$16,B2) Cambia el 16 por la última fila con datos. Ahora pon la siguiente fórmula en G4...

Te anexo la macro Sub Mandar_datos_factura_a_compras() ' Por Dante Amor ' Set h1 = Sheets("factura") Set h2 = Sheets("compras_listas") ' fila = 25 j = h2.Range("F" & Rows.Count).End(xlUp).Row + 1 Do While h1.Cells(fila, "F").Value <> "" h2.Cells(j,...

No pusiste en dónde quieres el resultado. En tu ejemplo de la fila 9, el resultado "Llega del cole", el título está en la fila 4. Pero si tomamos la fila 10, el resultado está en la fila 3. Tu encabezado tiene celdas combinadas. Lo que se podría...

Prueba poniendo la instrucción Application.DisplayAlerts = False pero al inicio de la macro. Prueba y me comentas