Aneudys Martinez

Aneudys Martinez

Unused RAM is wasted RAM
 91,4K puntos  República Dominicana @aneudysmartinez desde - visto
Preguntar

Respuestas

Respuesta en a

Como copiar un rango(el cual varia en cantidad de filas) y pegarlo exactamente debajo de la ultima fila que copie

Para empezar tu intrucion son las siguiente Range("3:3").Select Selection. Cut Corta la fila 3 entera ActiveCell.Offset(-2, 0).Range("A1").Select luego le dice que se pocicione en la celda a1 Range(Selection, Selection.End(xlDown)).Select aqui le...
Respuesta en a

Hacer Visible una hoja dependiendo de una celda

Esto lo puede conseguir de la siguiente manera en el "ThisWorkbook" como dijiste pero en el evento open para que se ejecute cada ves que abras el libro Private Sub Workbook_Open() Application.ScreenUpdating = False Dim numero, i numero = Sheets.Count...
Respuesta en a

¿Cómo hacer que una macro grabada en una columna se repita en las siguientes?

Presentanos la que busca en la columna y una imagen de la hoja para ver como podemos ayudarte
Respuesta en y en 2 temas más a

Proteger celdas de excel pero permitir copiar y pegar

Si lo haces con in userform lo consigues de la siguiebet manera En el botón de agregar los datos a la hoja Private Sub CommandButton1_Click() Sheets("nombre de tu hoja a proteger"). Unprotect "tuclave" macro que copias los datos ... Sheets("nombre de...
Respuesta en a

"DaMor" Macro Copiar Fórmula de una hoja a otra

[email protected] Este es mi correo para ver en que te puedo ayudar
Respuesta en y en 2 temas más a

Como puedo filtrar fechas usando LDDate

Si he por combobox seria de la siguiente manera Private Sub UserForm_Initialize() Range("d4").Select Do While ActiveCell <> "" ComboBox2.AddItem ActiveCell ActiveCell.Offset(1, 0).Activate Loop Range("d4").Select Do While ActiveCell <> ""...
Respuesta en a

Control de errores con imágenes

Prueba de esta forma Private Sub UserForm_Initialize() On Error Resume Next Image = ThisWorkbook.Path & "\fotos\" & Range("F6") & ".jpg" Image1.Picture = LoadPicture(Image) If Image1 = "" Then MsgBox "no existe foto con ese nombre" exit sub end if...
Respuesta en y en 1 temas más a

Dejar en fondo Blanco una celda que estaba en rojo esperando una fecha, al poner la fecha de recepción

Prueba estos a ver si te ayuda En el formato condicional =celda<> "" formula seria =$j25<> "" osea celda X deferente de vacio format en blanco Prueba si te silve recuerda valorar para cerrar la pregunta
Respuesta en a

Id en incremento y convertir en formato numero

En el evento iniciarse del userform agrega esto Private Sub UserForm_Initialize() ID = range("a6").value + 1 End Sub Recuerda valorar si te silve para cerrar la pregunta