Tor Cheer

Pruebe con esta macro Sub Macro99() Sheets("Hoja1").Select fila = ActiveCell.Row columna = ActiveCell.Column Selection.Copy Sheets("Hoja2").Select Cells(fila, columna).Select ActiveSheet.Paste End Sub

Considerando que el dato Vacío esta en la columna A, pruebe con esta macro Sub ElimarFilaSegunCriterio() u = Cells(Rows.Count, 1).End(xlUp).Row Columna = ("A") DatoElim = "Vacio" For i = u To 2 Step -1 Cells(i, Columna).Select If Cells(i, Columna) =...

Puede compartir su fórmula buscarv que tiene para adaptarla y comparta una imagen de sus datos donde se buscan los datos. El punto 2 rutina, no me queda claro lo que necesita.

Puede compartir una copia de su archivo con datos ficticios, para intentar ayudarle en lo que necesita.

Supongo que al momento de capturar en cierta celda el dato se vuelve "CERRADO" y en ese momento mostrar el mensaje me corrige si no es así. Además de si puede compartir un archivo como ejemplo para intentar ayudarle.

En el evento Changue del combobox OFICINA pone las condiciones if nombre_combobox = OFICINA1 Then nombre_frame_oficina_1 elseif nombre_combobox = OFICINA2 Then nombre_frame_oficina_2 end if

La siguiente macro encuentra un dato buscado y muestra un mensaje como ejemplo, puede adaptarla a sus necesidades, cualquier cosa comenta para ayudarle Sustituya la ubicación del valor buscado, así como el nombre de la hoja así como también la...

No me queda claro lo que necesita, podría subir una imagen de sus datos y graficar lo que desea obtener.

No me queda muy claro, puede subir una imagen con sus datos y ampliar lo que necesita para poder ayudarle

Podría hacerlo con una fórmula, sustituye las comas(,) por punto y coma (;) en la fórmula para que no de error, cualquier cosa comenta =SI(B2="TOTEM","PEQUEÑA",SI(B2="VINILO 60 CM","PEQUEÑA",SI(B2="VINILO TEXTO","PEQUEÑA",SI(B2="VINILO 160...