Buenos días,

Amigos quisiera solicitar la colaboración con las siguientes macros:

1. Necesito crear una macro para la siguiente formula: =+SI.ERROR(((L9-K9)*24)-(BUSCARV(K9;$AI:$AJ;2;0));"") y ubicarla en la columna M9 de la hoja llamada BD y que se copie hacia abajo, una vez hecho esto convertir el resultado a valores para que no se visualice la formula.

2. En la columna N hacer lo mismo indicado en el punto uno, para esta formula: =SI.ERROR(BUSCARV(K9;$AI:$AJ;2;0);""), siempre en la hoja BD.

3. En la columna Q crear otra macro para esta formula: =CONCATENAR(O9;"&";P9) igual que se copie hacia abajo y convierta el resultado en valores.

4. Por ultimo hace un tiempo en este foro se me facilitó el siguiente código, para que por medio de un combobox, desplegado en el commanbutton de la hoja "Datos", me permitía filtrar la información de la hoja datos a la hoja llamada Extras según el usuario que seleccionaba e imprimia la hoja, borraba la información filtrada y me regresaba a la hoja "Datos" pero me ha dejado de funcionar, adjunto el código por mi me pueden ayudar:

Private Sub CommandButton1_Click()

Unload Me

End Sub

Private Sub Reporte1_Click()

Application.ScreenUpdating = False

Hoja11.Activate

Range("B3") = ComboBox1

Range("A8:S22").ClearContents

Range("A8").Activate

Hoja10.Activate

Range("A6").Activate

TT = Range(ActiveCell.Address).Row

Do While ActiveCell <> Empty

If ActiveCell.Offset(0, 2) = ComboBox1 Then

Range("A" & TT & ":" & "B" & TT).Copy

Hoja11.Activate

ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveCell.Offset(0, 2).Activate

Hoja10.Activate

Range("D" & TT & ":" & "T" & TT).Copy

'Range(ActiveCell(0, 3) & ":" & ActiveCell.Offset(0, 18)).Copy

Hoja11.Activate

ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveCell.Offset(1, -2).Activate

Hoja10.Activate

ActiveCell.Offset(1, 0).Activate

TT = Range(ActiveCell.Address).Row

Else

ActiveCell.Offset(1, 0).Activate

TT = Range(ActiveCell.Address).Row

End If

Loop

UserForm1.Hide

Range("A4").Activate

Application.ScreenUpdating = True

Application.CutCopyMode = False

Hoja11.Activate

Range("A5").Activate

End Sub

Private Sub UserForm_Activate()

Hoja10.Activate

For Each celda In Range("C6", Range("C" & Rows.Count).End(xlUp))

ComboBox1.Text = celda.Value

If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem celda.Value

Next celda

ComboBox1.ListIndex = 0

End Sub

Muchas gracias!

Hector & Gersón si llegan a leer el post, es el tema que se cerró en la ocasión anterior, les suplicó la ayuda.

Saludos

JB

Foro consulta.rar

Hola!

Amigos comprendo que las solicitudes van acorde al tiempo y la colaboración de los más sabios en el tema, agradezco si alguno dispone del tiempo para tratar de resolver mi consulta,.

Saludos

Jose

Hola!

Intentando llegar a una solución he probado el siguiente código:

Sub Macro1()

Range("N9") = Application.WorksheetFunction.VLookup(Range("K9"), Range("AI1:AJ41"), 2)

End Sub

Veo que funciona pero no se como hacer para que busque el resto de los datos de K9 hacia abajo, si alguien me puede ayudar se lo agradezco.

Saludos

Hola[uSER=80149]@jose-bn[/uSER]!!!

Intenta con este código (ponlo después las otras macros que hacen cálculos). Sólo copié las fórmulas descriptas en el post #1

Sub convertir()

Hoja1.Activate

ufila = Cells(Rows.Count, 1).End(xlUp).Row


With Hoja1.Range("N9:N" & ufila)

    .FormulaR1C1 = "=IFERROR(VLOOKUP(RC11,C35:C36,2,FALSE),"""")"

End With


With Hoja1.Range("Q9:Q" & ufila)

    .FormulaR1C1 = "=CONCATENATE(RC15,""&"",RC16)"

End With

ThisWorkbook.RefreshAll


End Sub[/CODE]

Puedes probar y comentar? Si la solución planteada es lo que buscas, favor de dar el tema por solucionado.

Que tengas una buena jornada!

Muchas gracias! tierra_pampa solo ser un abusivo un poco:

1. En la celda m9 de la hoja BD tengo esta formula: =+SI.ERROR(((L10-K10)*24)-(BUSCARV(K10;$AI:$AJ;2;0));"") es posible me ayudes a crearla con una macro y una vez finalizada cada macro convierta los datos a valor para que la formula no quede en la hoja.

2. El siguiente código me genera un error pero no manejo mucho el tema y no logro identificar a que se debe ya que anteriormente funcionaba:

Private Sub Reporte1_Click()

Application.ScreenUpdating = False

Hoja11.Activate

Range("B3") = ComboBox1

Range("A8:S22").ClearContents

Range("A8").Activate

Hoja10.Activate

Range("A6").Activate

TT = Range(ActiveCell.Address).Row

Do While ActiveCell <> Empty

If ActiveCell.Offset(0, 2) = ComboBox1 Then

Range("A" & TT & ":" & "B" & TT).Copy

Hoja11.Activate

ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveCell.Offset(0, 2).Activate

Hoja10.Activate

Range("D" & TT & ":" & "T" & TT).Copy

'Range(ActiveCell(0, 3) & ":" & ActiveCell.Offset(0, 18)).Copy

Hoja11.Activate

ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveCell.Offset(1, -2).Activate

Hoja10.Activate

ActiveCell.Offset(1, 0).Activate

TT = Range(ActiveCell.Address).Row

Else

ActiveCell.Offset(1, 0).Activate

TT = Range(ActiveCell.Address).Row

End If

Loop

UserForm1.Hide

Range("A4").Activate

Application.ScreenUpdating = True

Application.CutCopyMode = False

Hoja11.Activate

Range("A5").Activate

End Sub

Private Sub UserForm_Activate()

Hoja10.Activate

For Each celda In Range("C6", Range("C" & Rows.Count).End(xlUp))

ComboBox1.Text = celda.Value

If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem celda.Value

Next celda

ComboBox1.ListIndex = 0

End Sub

Hola [uSER=80149]@jose-bn[/uSER]!!!

Si no lo tomas a mal, modifiqué la macro que dices que da error (a mi me funciona bien), por otra más simple.

Puedes probar y comentar? Si la solución planteada es lo que buscas, favor de dar el tema por solucionado.

Que tengas una buena jornada!

Matriz Gps Horas extras 2016 .rar

Muchas gracias! la verdad estoy sorprendido es muy acertada la macro, solo quisisera comentarte que tengo un error al momento de seleccionar diferentes usuarios en el combobox (en un orden aleatorio), me genera el un error en el código de ejecución y me resalta la linea: With ActiveWorkbook.

De antemano el agradecimiento por todo el apoyo que vienes brindado a mi consulta.

Saludos

Jose

Foro.rar

Hola [uSER=80149]@jose-bn[/uSER]!

Bajé tu archivo y, en mi máquina, funciona normalmente.

La línea a la que te refieres se usa para nombrar un rango, por lo que pienso que uno de los problemas puedes ser que el prg no encuentre el nombre de rango.

Puedo solicitarte poner un punto de interrupción en el código? Usa la tecla F9 en una línea, que sea anterior a la línea con problemas; y luego con la tecla "F8" puedes ejecutar el formulario para observar los pasos de la macro "Private Sub Reporte1_Click", avanzando paso a paso para ver realmente dónde encuentras el inconveniente.

Volvemos mañana para seguir en busca de la solución.

Que tengas una buena jornada!

Buen día,

Voy a correr la instrucción que me recomiendas y te estaré comentando.

Jose

Buenos días,

tierra pampa seguiendo los pasos que me sugieres fui incapaz de detectar el error, ya que me continua resaltando la misma linea (ver adjunto)

Buenos días,

tierra pampa siguiendo los pasos que me sugieres fui incapaz de detectar el error, ya que me continua resaltando la misma linea (Ver adjunto).

Revisando un poco y entendiendo lo mínimo que haz aplicado en el archivo observé la definición de rangos, nunca habia visto eso, bueno en lo poco que aprendido en este foro y con la ayuda que me han brindado. Dentro de esos rangos veo que definiste un rango de impresión sería mucho atrevimiento el apoyo de incorporarlo para cuando se trasladen los datos a la hoja llamada "Extras" por medio del boton reporte del formulario imprima la boleta.

Saludos y muy agradecido por el apoyo brindado.

Jose

Error VBA.rar