ando con una inquietud hace días que me mire todos los videos que encontre y no logro resolver un punto importante en mi proyecto.
Tengo dos Archivos excel: Datos - Abastecimientos2 y Autorizaciones., ambos archivos tienen una hoja llamada "Datos"
En el archivo de Datos - Abastecimientos, en la Hoja datos, van ingresando datos a los cuales se le agrega el valor = "Prespuestado" una vez que se hice la busqueda de precios.
Lo que estaba intentando con el modulo 1 es que me busque todos los datos de esa hoja y me copie solo las filas que cumplen la condicion de tener la palabra "Presupuestado". y me las pegue en la Hoja Datos del archivo Autorizaciones.
Logre que me abra el archivo y copie los formatos he hice otras pruebas y me copiaba solo el ultimo valor encontrado ...
les comparto el codigo... que estaba probando y no me funciona y los dos archivos.
Sub buscar_ultpedido()
Dim ufila6 As String, ufila7 As String
Dim rango As Range
Dim KPIdestino As Worksheet, MSTorigen As Worksheet, Plant As Range
Dim compID As Range
Dim i As Long
Dim primera As Variant
Dim celda As Range
Dim poblacion As String
Dim palabraBuscada As String
Application.ScreenUpdating = False
Workbooks.Open (ActiveWorkbook.Path & "\Autorizaciones.xlsm")
Set KPIdestino = Workbooks("Autorizaciones.xlsm").Worksheets("Datos")
ThisWorkbook.Activate
Set MSTorigen = Workbooks("Datos - Abastecimientos2.xlsm").Worksheets("Datos")
palabraBuscada = "PRESUPUESTADO"
ufila6 = MSTorigen.Cells(Rows.Count, 1).End(xlUp).Row
If ufila6 < 2 Then ufila6 = 2
ufila7 = KPIdestino.Cells(Rows.Count, 1).End(xlUp).Row + 1
If ufila7 < 2 Then ufila7 = 2
'If MSTorigen.Cells(ufila6, 11) = palabraBuscada Then
For i = 2 To ufila6
j = Hoja1.Cells(i, 1).Row
Set rango = MSTorigen.Range("A" & j & ":K" & ufila6)
If rango hoja1.Range("A" & j & ":K" & ufila6) = palabraBuscada Then
rango.Copy
KPIdestino.Range("A" & ufila7).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If
' Next
Exit Sub
Next
'End If
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola amigos como estan!
ando con una inquietud hace días que me mire todos los videos que encontre y no logro resolver un punto importante en mi proyecto.
Tengo dos Archivos excel: Datos - Abastecimientos2 y Autorizaciones., ambos archivos tienen una hoja llamada "Datos"
En el archivo de Datos - Abastecimientos, en la Hoja datos, van ingresando datos a los cuales se le agrega el valor = "Prespuestado" una vez que se hice la busqueda de precios.
Lo que estaba intentando con el modulo 1 es que me busque todos los datos de esa hoja y me copie solo las filas que cumplen la condicion de tener la palabra "Presupuestado". y me las pegue en la Hoja Datos del archivo Autorizaciones.
Logre que me abra el archivo y copie los formatos he hice otras pruebas y me copiaba solo el ultimo valor encontrado ...
les comparto el codigo... que estaba probando y no me funciona y los dos archivos.
Sub buscar_ultpedido() Dim ufila6 As String, ufila7 As String Dim rango As Range Dim KPIdestino As Worksheet, MSTorigen As Worksheet, Plant As Range Dim compID As Range Dim i As Long Dim primera As Variant Dim celda As Range Dim poblacion As String Dim palabraBuscada As String Application.ScreenUpdating = False Workbooks.Open (ActiveWorkbook.Path & "\Autorizaciones.xlsm") Set KPIdestino = Workbooks("Autorizaciones.xlsm").Worksheets("Datos") ThisWorkbook.Activate Set MSTorigen = Workbooks("Datos - Abastecimientos2.xlsm").Worksheets("Datos") palabraBuscada = "PRESUPUESTADO" ufila6 = MSTorigen.Cells(Rows.Count, 1).End(xlUp).Row If ufila6 < 2 Then ufila6 = 2 ufila7 = KPIdestino.Cells(Rows.Count, 1).End(xlUp).Row + 1 If ufila7 < 2 Then ufila7 = 2 'If MSTorigen.Cells(ufila6, 11) = palabraBuscada Then For i = 2 To ufila6 j = Hoja1.Cells(i, 1).Row Set rango = MSTorigen.Range("A" & j & ":K" & ufila6) If rango hoja1.Range("A" & j & ":K" & ufila6) = palabraBuscada Then rango.Copy KPIdestino.Range("A" & ufila7).PasteSpecial xlPasteAll Application.CutCopyMode = False End If ' Next Exit Sub Next 'End If End Sub