UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

chema


Hola a todos, agradeceros como siempre vuestro tiempo y conocimientos: 

Estoy intentando cambiar una macro que modifiqué sobre la que me hizo el buen compañero Tyno hace unos meses ya. La única diferencia es que quiero que ahora en vez de copiar los datos de un libro a otro me lo haga en una pestaña de la hoja de cálculo en la que está esta macro: 

Private Sub CommandButton1_Click()
On Error Resume Next
Dim matriz1() As Variant
Dim matriz2() As Variant
Dim matriz3() As Variant
Dim celdaE8 As String
Dim celdaH8 As String

Application.ScreenUpdating = False
   For a = 32 To 35
    dato1 = Hoja1.Cells(a, 1) 'Nombre del compuesto
    dato2 = Hoja1.Cells(a, 4) 'Concentración
    dato3 = Hoja1.Cells(a, 6) 'Recuperación obtenida
    ReDim Preserve matriz1(a)
    matriz1(a) = dato1
    ReDim Preserve matriz2(a)
    matriz2(a) = dato2
    ReDim Preserve matriz3(a)
    matriz3(a) = dato3
    Next a
    celdaE8 = Hoja1.Range("E8") 'Fecha del control
    celdaH8 = Hoja1.Range("H8") 'Dato de la matriz
    usuario = Application.UserName 'obtener el usuario del equipo
     'abrir el segundo libro
    Workbooks.Open Filename:="C:\Documents and Settings\Administrator\Desktop\MURFYQ159MICOT.xlsm"
    With Workbooks("MURFYQ159MICOT.xlsm").Worksheets("Sheet1")
    'rellenar las celdas del segundo libro, en primer lugar con los datos de 1er matriz
    For a = 32 To 35
    fila = .Range("c1:c1000000").Find("").Row 'buscar la primer celda vacia
    .Cells(fila, 3) = matriz1(a)
    Next a
    'rellenar las celdas del segundo libro, en 2do lugar con los datos de 2da matriz
    For a = 32 To 35
    fila = .Range("d1:d1000000").Find("").Row 'buscar la primer celda vacia
    .Cells(fila, 4) = matriz2(a)
    Next a
    For a = 32 To 35
    fila = .Range("e1:d1000000").Find("").Row 'buscar la primer celda vacia
    .Cells(fila, 5) = matriz3(a)
    Next a
    'repetir la celda de la matriz
    For d = 1 To 4
    fila = .Range("b1:b1000000").Find("").Row 'buscar la primer celda vacia
    .Cells(fila, 2) = celdaH8
    Next d
    'repetir la celda de la fecha
    For e = 1 To 4
    fila = .Range("a1:a1000000").Find("").Row 'buscar la primer celda vacia
    .Cells(fila, 1) = celdaE8
    Next e
    End With

'guardar y cerrar el segundo libro
terminar:

ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Concretamente lo que intento hacer pero no consigo es cambiar el abrir este libro: 
 Workbooks.Open Filename:="C:\Documents and Settings\Administrator\Desktop\MURFYQ159MICOT.xlsm"
    With Workbooks("MURFYQ159MICOT.xlsm").Worksheets("Sheet1")

Por que me abra y guarde los datos en la pestaña "historico" del libro excel en el que está creado esta macro (se llama "rectas")

Se que será una tontería pero no lo consigo. Muchas gracias de antemano.

Saludos.

chema


Hola a todos.

Efectivamente era una tontería aquí dejo la solución por si a alguien le puede resultar útil.

with Sheets("nombre del libro")

Gracias por vuestro tiempo y este foro.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.