Macro Para capturar el dato de la misma celda en varias hojas..
Actualmente estoy tratando de generar un indicador de calidad a partir de un dato que se almacena en la misma columna, para lo cual generé un botón y la idea es q al hacer click sobre el botón me genere una nueva hoja y luego me traiga todos los datos de las hojas del libro de trabajo y los organice en la fila A... El siguiente es el código pero el problema es que solo me trae el dato de la primer hoja y le lo replica en la fila A...
Private Sub CommandButton1_Click()
Worksheets.Add.Name = "Matriz de Calidad"
For Each hoja In ActiveWorkbook.Sheets
If UCase(hoja.Name) <> "Matriz de Calidad" Then
hoja.Select
Range("H51").Copy
Sheets("Matriz de Calidad").Range("a2").PasteSpecial Paste:=xlValues
Range("H51").Copy
Sheets("Matriz de Calidad").Range("a3").PasteSpecial Paste:=xlValues
Range("H51").Copy
Sheets("Matriz de Calidad").Range("a4").PasteSpecial Paste:=xlValues
End If
Next
End Sub
1 respuesta
Siempre estás seleccionando las mismas celdas en hoja destino (a2, a3, a4)
Lo que debes agregar es una variable que te ubique cual es la primer fila libre:
filx = Sheets("Matriz de Calidad").range("A" & rows.count).end(xlup).row + 1
Luego tus instrucciones de copiado utilizan esta variable:
Sheets("Matriz de Calidad").Range("a" & filx).PasteSpecial Paste:=xlValues
filx = filx+1 'se actualiza para la siguiente copia
¿Noto qué pegas 3 veces la misma celda por cada hoja? Revisa si es lo correcto.
