favio valdez

Como no dices en donde se encuentran los datos voy a suponer que los datos van desde la celda a1 hasta n siendo n la ultima celda donde hay datos. En la celda b1 colocamos la siguiente fórmula: =if(a1="NO";if(a1="Si";2;"")) Reemplaza los punto y coma...

Adriel Ortiz Mangia respondió: [Hola Te paso la macro Macro para combobox1 Private Sub ComboBox1_Click() Set h = Sheets("Hoja1") ListBox1.Clear Set r = h.Columns("A") ' Set b = r.Find(ComboBox1, LOOKAT:=xlWhole) If Not b Is Nothing Then ListBox1.AddItem h.Cells(b.Row, "B")...

carlos tellez respondió: Amigo la forma más confiable de saber que sistema tienes ... es ir a inicio ... le das clic en buscar.. Y escribes «equipo »... ya cuando te aparezca la ventana le clickeas en la opción -propiedades- y te saldrá exactamente cuál es el sistema...

Yo agregaría lo. Siguiente. Sub buscar_reemplazar_BORDE() Application.ScreenUpdating = False Dim lookup Set l1= activeworkbook For each hoja in l1 'opcional: quitar bordes anteriores Set DATOS = Range("A1:AA80").CurrentRegion DATOS.Borders.LineStyle...

Prueba con esto a ver si te sirve. https://support.office.com/es-es/article/insertar-la-fecha-y-la-hora-actuales-en-una-celda-b5663451-10b0-40ab-9e71-6b0ce5768138

Pues mira, te comento que hace mas de 20 años que no uso visual Fox pro pero haría lo siguiente, luego tu lo pasas en el código de visual. 'Declaro variables Txtinicial = 0 Txtfinal = 0 'pido que ingrese txtinicial y txtfinal y lo guardo en variables...

Te paso el siguiente enlace. Ahí de seguro hallarás la respuesta. https://exceltotal.com/buscarv-en-varias-hojas-de-excel/ No olvides de valorar la respuesta.

No entiendo mucho del tema acerca de formularios y textbox pero la solución que te podría facilitar es la siguiente. En el textbox 5 antes de hacer toda la resta para los 4 textbox haría está pregunta: Si textbox 1>textbox 2 entonces Textbox 2 -...

Te anexo está macro. Sub Macro1() Dim MyRange As Range Dim iCounter As Long Set MyRange = ActiveSheet.UsedRange For iCounter = MyRange.Rows.Count To 1 Step -1 If Application.CountA(Rows(iCounter).EntireRow) = 0 Then Rows(iCounter).Delete End If Next...

Abraham Valencia respondió: [Hola ¿Que hay en el módulo de esas hojas ¿algún evento o una rutina? De ser un evento lo que está en el módulo de tus hojas (de ser el mismo), si es que tuvieses, digamos, una hoja "modelo" y lo que haces, en lugar de crear/insertar hojas nuevas, es...

Por lo poco que entiendo y por lo que puedo ver ese error te lo tira porque no tienes definida la variable col. Donde dice Dim col Debería decir Dim col as integer. Fíjate si es por eso. Es en lo único que puedo aportar. No soy un gran experto pero...