Dante Amor

Puedes poner una fórmula en P =si(A2<>"",1,"") Y copiar la fórmula hasta la fila con datos. O ejecuta la siguiente macro Sub Rellenar() Range("P2:P" & Range("A" & Rows.Count).End(xlUp).Row) = 1 End Sub [sal u dos

Puedes explicar de dónde a dónde quieres borrar o qué condiciones se deben seguir para saber hasta donde borrar.

H o l a Rhossi: Tengo algunas dudas. En la celda E12 (utilidad) de la hoja ventas, ¿vas a capturar algo? Siguiendo con tu mismo ejemplo, puedes poner en la hoja BD el resultado que esperas. En la hoja ventas capturas en las celdas o en un textbox,...

Puedes poner un par de imágenes donde expliques cómo tienes los datos en la hoja "compras" yy cómo quieres el resultado en la hoja "BD", procura que se vean las filas y las columnas de excel

Me parece que solamente tienes que cambiar esta línea If LCase(Cells(i, j)) Like "*" & LCase(txtFiltro1) & "*" Then Por esta (falta el objeto h1 para hacer referencia a la hoja): If LCase(h1.Cells(i, j)) Like "*" & LCase(txtFiltro1) & "*" Then Por...

Puedes poner imágenes de lo que tienes y de lo que esperas de resultado.

Va la macro Sub Buscar_Valor() valor = InputBox("Escribe el valor a buscar : ", "BUSCAR VALOR") If valor = "" Then Exit Sub Set b = Cells.Find(valor, LookIn:=xlValues, lookat:=xlPart) If Not b Is Nothing Then b.Select Else MsgBox "Valor no...

Te anexo la macro. Cambia en la macro "Hoja1" y "A" por tus datos. Sub Buscar_Nombres() 'Por Dante Amor ' Set h1 = Sheets("Hoja1") 'hoja de nombres col = "A" 'columna de nombres h1.Columns(col).Interior.ColorIndex = xlNone For i = 2 To h1.Range(col &...

Ejecuta la siguiente macro: Sub macro() Range("A10").Value = Range("A1").Value End Sub [sal u dos

Por ejemplo, si pones el texto en la celda B2, en la celda C2, solamente te pondrá el número que empieza con 744 Sub extra_Numero() celda = Range("B2").Value n = InStr(1, celda, "744") tel = Mid(celda, n, 10) Range("C2").Value = tel End Sub'.[Sal u...