Tor Cheer

En este enlace una un archivo para buscar con un criterio, espero de de una idea de lo que necesita buscar, cualquier cosa comenta. https://drive.google.com/open?id=18FD-0h-tR7sS_cZZhLJhFPnrx483XODq

Con esta macro copia datos en un rango fijo de un libro a otro, cualquier cosa comenta Sub copiarLibro() Dim x As Workbook Dim y As Workbook Set x = Workbooks.Open("C:\Users\Yion\Documents\Libro1.xlsm") Set y =...

¿Qué adaptación le quiere hacer a la hoja?

No me queda claro lo que necesita, puede subir una imagen de sus datos en el archivo y explicar ahí para entenderle mejor.

Lo único que se me ocurre es hacer algo como esto, en el evento clic del ComboBox Private Sub ComboBox1_Click() If ComboBox1.Value = 100 Or ComboBox1.Value = 101 Then TextBox.BackColor = vbRed ElseIf ComboBox1.Value = 102 Or ComboBox1.Value = 103...

Ponga una imagen de sus datos, para intentar ayudarle

Intente con esta macro, en este ejemplo copia de la columna H a la columna R. Cualquier cosa comenta. Sub copiarNveces() ufh = Range("H" & Rows.Count).End(xlUp).Row For i = 1 To ufh Ncopia = Cells(i, 10).Value ufr = Range("R" &...

Intente con esta macro, en el ejemplo lo datos de la columna "L" los copia a la columna "P" verificando que no existan, adapte a su archivo de acuerdo en la ubicación de sus datos. Cualquier cosa comenta Sub copiar() uFd = Range("L" &...

Vea el formato de la celda, también puede ver si las cantidades en la operación no tengan decimales o sea el resultado de otra operación.

Una forma simple de sumar datos como en este ejemplo, el resultado se puede multiplicar por un dato fijo, o un dato que este almacenado en otra celda.