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
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.
