Soy nuevo en VBA y estoy tratando de dar mis primeros pasos, ¡necesito ayuda!
A continuación, encontrará un código para importar un rango de un archivo seleccionado al libro de trabajo activo. La macro se asigna a un botón en el libro activo.
Lo que extraño, y no puedo escribir, es que me gustaría pegar el Rango ("U2: AH2") en la fila de la hoja de trabajo activa donde está el valor de la celda T2 (la celda T2 está en el archivo abierto) hacer coincidir un valor en la columna D de la tabla en la hoja de trabajo activa.
Sub Import_QTN_Data() Dim FileToOpen As Variant Dim OpenBook As Workbook Application.ScreenUpdating = False FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*") If FileToOpen <> False Then Set OpenBook = Application.Workbooks.Open(FileToOpen) OpenBook.Worksheets("QUOTATION").Range("U2:AH2").Copy ThisWorkbook.Worksheets("QUOTATION").Range("E30").PasteSpecial xlPasteValues, skipblanks:=True OpenBook.Close False End If Application.ScreenUpdating = True End SubEspero que alguien pueda ayudarme a escribir esta parte del código. Muchas gracias de antemano
Lucas
Podrías usar Match() , o Find() . Aquí hay un ejemplo usando Match()
Sub Import_QTN_Data() Dim FileToOpen As Variant Dim OpenBook As Workbook, wsQuote As Worksheet, m Application.ScreenUpdating = False FileToOpen = Application.GetOpenFilename( _ Title:="Browse for your File & Import Range", _ FileFilter:="Excel Files (*.xls*),*xls*") If FileToOpen <> False Then Set wsQuote = ThisWorkbook.Worksheets("QUOTATION") Set OpenBook = Application.Workbooks.Open(FileToOpen) With OpenBook.Worksheets("QUOTATION") 'use Match() on ColD m = Application.Match(.Range("T2").Value, wsQuote.Columns("D"), 0) If Not IsError(m) Then 'got a match (`m` is not an error value) .Range("U2:AH2").Copy wsQuote.Cells(m, "E").PasteSpecial xlPasteValues, skipblanks:=True End If End With OpenBook.Close False End If Application.ScreenUpdating = True End Sub