Jump to content

Predi

Members
  • Content Count

    85
  • Joined

  • Last visited

About Predi

  • Rank
    Advanced Member
  • Birthday 06/21/1958

Recent Profile Visitors

347 profile views
  1. Gracias por tu información bigpetroman
  2. Gracias por tu ayuda Haplox Consulta se puede cerrar
  3. Como conseguir que copie datos duplicados la tabla dinámica?
  4. Buenos días Tengo una tabla dinámica que no me copia bien los datos y cuando quiero consultar esos datos los muestra mal y no se cual puede ser el problema haber si alguien me puede ayudar para poder solucionar esta problemaError copia tabla dinamica.xlsm por que no soy capaz de encontrarlo Los datos los coge de la tabla que esta en la hoja Detalles de Factura Gracias
  5. Hola Como se puede hacer en esta macro para que me avise que ya existe el documento y que si lo quiero grabar With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & " \ " .Title = "PROYECTADOS SEIXO - Seleccionar carpeta" .Show If .SelectedItems.Count = 0 Then Else Ruta = .SelectedItems(1) MsgBox "Guardando en PDF Factura '" & NumFactura & "'. Presione Aceptar para continuar...", _ vbInformation, "PROYECTADOS SEIXO" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Ruta & "\" & "Factura nº " & NumFactura & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If End With gracias
  6. Buenas tardes Como puedo conseguir que en una celda escriba 999999999999999999 u otra serie de números y me devuelva 999 999 999 / 999 999 999 tengo probado con ###" "###" "###" / "###" "###" "### pero siempre me pone los tres últimos números en 0 999 999 999 / 999 999 000 y no encuentro una alternativa si alguien sabe como hacerlo se lo agradecería. gracias
  7. Buenas Noches Esta macro me da error cuando la ejecuto por segunda vez en Range("A" & ultFila).PasteSpecial xlPasteAll Private Sub copiarceldas3_Click() Dim ultFila As Long, _ wbOrigen As Workbook 'Indicar el libro de Excel destino es la única variable que necesitas Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\Factura2.xlsm") 'Se saca la celda donde está la última fila que agregaste ultFila = Sheets("Clientes").Range("A" & Rows.Count).End(xlUp).Row 'Activamos el libro origen para copiar los datos, a partir del último que copiaste en la otra hoja ThisWorkbook.Activate Sheets("Clientes").Activate 'Nos vamos a la ultima celda que copiaste para solo seleccionar de ahí para abajo Range("A" & ultFila).Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy 'Regresamos al libro destino para pegar los datos wbDestino.Activate Sheets("Clientes").Activate 'Aquí le sumamos 1 a la variable de ultFila para pegar en la primera celda vacía ultFila = ultFila + 1 Range("A" & ultFila).PasteSpecial xlPasteAll Application.CutCopyMode = False 'Guardar y cerrar el libro de Excel destino wbDestino.Save wbDestino.Close End Sub Alguien me podría decir el motivo gracias
  8. Tengo esta formula pero me da error y no se si me valdría para lo que estoy buscando el error me lo da en rngOrigen.Select Sub CopiarCeldas2() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino Set wbDestino = Workbooks.Open("E:\Factura\Factura2.xlsm") 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Clientes") Set wsDestino = wbDestino.Worksheets("Clientes") 'Indicar la celda de origen y destino Const celdaOrigen = "A1" Const celdaDestino = "A1" 'Inicializar los rangos de origen y destino Set rngOrigen = wsOrigen.Range(celdaOrigen) Set rngDestino = wsDestino.Range("A1").End(xlDown).Offset(1, 0) 'Seleccionar rango de celdas origen rngOrigen.Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy 'Pegar datos en celda destino rngDestino.PasteSpecial xlPasteAll Application.CutCopyMode = False 'Guardar y cerrar el libro de Excel destino wbDestino.Save wbDestino.Close End Sub
  9. Hola de nuevo pidiendo un poco mas de ayuda Quiero copiar los datos que tengo en la hoja clientes a otro libro que tiene también una hoja con el mismo nombre sin que se dupliquen los datos, que si tiene un dato nuevo se pueda copiar sin repetir todo Tengo una macro la cual me copia todo repitiendo los datos y el encabezado haber si alguien me puede echar un cable Solo puedo subir un archivo, pero los son iguales Gracias Factura1.xlsm
  10. Hola Haplox En la pestaña factura genero la factura con los datos que corresponda y en la celda E45 hay veces que va en blanco El problema lo tengo cuando paso a la pestaña consultar factura y quiero consultar una factura si e guardado la factura con la celda E45 en blanco no me muestra los datos que tengo debajo, no se si ahora esta un poco mejor explicado Gracias
×
×
  • Create New...

Important Information

Privacy Policy