Macro para filtrar datos
Hola tengo las siguiente macro:
Sub Turnos()
Dim TardeBingo As Range
Dim NocheBingo As Range
Dim FrancoBingo As Range
For Each TardeBingo In Worksheets("Cam Bin").Range("D2:D50")
If TardeBingo = "T" Then
TardeBingo.Offset(0, -1).Copy Destination:=Worksheets("hoja1").Range("M20").End(xlUp).Offset(1, 0)
End If
Next TardeBingo
For Each NocheBingo In Worksheets("Cam Bin").Range("D2:D50")
If NocheBingo = "N" Then
NocheBingo.Offset(0, -1).Copy Destination:=Worksheets("hoja1").Range("N20").End(xlUp).Offset(1, 0)
End If
Next NocheBingo
For Each FrancoBingo In Worksheets("Cam Bin").Range("D2:D50")
If FrancoBingo = "F" Then
FrancoBingo.Offset(0, -1).Copy Destination:=Worksheets("hoja1").Range("O20").End(xlUp).Offset(1, 0)
End If
Next FrancoBingo
End Sub
El problema es que siempre me copia a partir de la fila 2 yo lo que necesito es elegir un lugar POR de la hoja por ejemplo "M20", "N20", "O20" por cada dato filtrado, pero por alguna razón me copia en la columna correcta pero en la fila 2.
Por otra parate necesitaría saber si puedo elegir de la columna que quiero filtrar mediante un imputbox y que me tire un error si se intruducen valores distintos a los números que van del 1 al 31 o si se introduce texto.
Sub Turnos()
Dim TardeBingo As Range
Dim NocheBingo As Range
Dim FrancoBingo As Range
For Each TardeBingo In Worksheets("Cam Bin").Range("D2:D50")
If TardeBingo = "T" Then
TardeBingo.Offset(0, -1).Copy Destination:=Worksheets("hoja1").Range("M20").End(xlUp).Offset(1, 0)
End If
Next TardeBingo
For Each NocheBingo In Worksheets("Cam Bin").Range("D2:D50")
If NocheBingo = "N" Then
NocheBingo.Offset(0, -1).Copy Destination:=Worksheets("hoja1").Range("N20").End(xlUp).Offset(1, 0)
End If
Next NocheBingo
For Each FrancoBingo In Worksheets("Cam Bin").Range("D2:D50")
If FrancoBingo = "F" Then
FrancoBingo.Offset(0, -1).Copy Destination:=Worksheets("hoja1").Range("O20").End(xlUp).Offset(1, 0)
End If
Next FrancoBingo
End Sub
El problema es que siempre me copia a partir de la fila 2 yo lo que necesito es elegir un lugar POR de la hoja por ejemplo "M20", "N20", "O20" por cada dato filtrado, pero por alguna razón me copia en la columna correcta pero en la fila 2.
Por otra parate necesitaría saber si puedo elegir de la columna que quiero filtrar mediante un imputbox y que me tire un error si se intruducen valores distintos a los números que van del 1 al 31 o si se introduce texto.
1 Respuesta
Respuesta de Elsa Matilde
1