Angel Melian

Angel Melian

 España @erpunta desde - visto
Preguntar

Actividad pública reciente

Ha valorado "Buena" la respuesta

Copiar filas pero si reunen una condicion

respondió: Deja una imagen de la hoja de origen donde se vean los encabezados de filas y col. Si no se van a pegar en la misma ubicación (es decir que los datos de origen están en ciertas col y en destino estarán en otras col) debes dejar también imagen de la...
Ha valorado "Excelente" la respuesta

Copiar dos tablas con rangos distintos en otra hoja con rangos distintos

respondió: [Hola va la macro Sub copiar() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h1.Range("A1:C3").Copy h2.Range("F1") h1.Range("A20:C22").Copy h2.Range("F20") MsgBox "fin" End Sub
Ha valorado "Excelente" la respuesta

Actualizar tabla, eliminando los datos anteriores

respondió: [Hola Pues de ser necesario borra entonces todos los valores de dicho rango: Range("A1:F9"). ClearContents Por supuesto estoy asumiendo que necesitas borrar todo ya que en realidad no has dado detalles ni mostrado tu macro. Comentas Abraham Valencia
Ha valorado "Excelente" la respuesta

Copiar tabla (Hoja 1) y Pegar (Hoja 2) con dos rango distintos

respondió: Prueba con esta simple macro. Sub CopiarRango() Hoja1.Range("A1:A10").Copy Hoja2.Range("B1:B10") End Sub Solo tienes que modificar el rango a tu criterio
Ha valorado "Excelente" la respuesta

Copiar de una hoja a otra sin tener en cuenta las filas vacías

respondió: [Hola Te paso la macro Valora la respuesta con manito arriba para finalizar Sub copiar_datos() 'Por.Adriel ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear k = 1 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i,...
Ha valorado "Buena" la respuesta

Ordenar automáticamente tabla sin contar celdas vacías

respondió: No dejaste la imagen y así como está no hay modo de comprender tu consulta. Sdos. Elsa
Ha valorado "Buena" la respuesta

Copiar tabla sin tener en cuenta celdas en blanco

respondió: [Hola Te paso la macro Sub copiar() ' ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") col = "A" 'columna a copiar col2 = "B" 'columna a evaluar j = 2 For i = 2 To h1.Range(col & Rows.Count).End(xlUp).Row If h1.Cells(i, col2) <> "" Then...
Ha valorado "Buena" la respuesta

Macro para no tener en cuenta una condición

respondió: ¿A qué llamas Error? ¿En un resultado de alguna fórmula? ¿O es un texto que se coloca manualmente? Además debieras escribir aquí la macro para poder incluir la condición necesaria. Si te parece envíame tu libro a alguno de los correos que aparecen en...

Trabajo

  • DMP
    Capitan , actualmente