Aneudys Martinez

Es en un userform O desde una hoja que realiza las pregunta Si es desde un userfor puedes usar algo asi en el evento afterupdate Private Sub TextBox3_AfterUpdate() If TextBox3 = "no" Then TextBox4.Locked = True TextBox5.SetFocus End If End Sub Esto...

Lo puede conseguir de la siguiente manera Presiona alt + f11 te lleva al editor vba Inserter un modulo y copia esta macro Sub copiarhoja( ) valor = Range("g1").Text if range("g1") <> "" then Worksheets(valor).Copy after:=Worksheets(Worksheets.Count)...

Lo puedes consegir con una busqueda De esta manera Set h = Sheets("results") Set b = h.Columns("B").Find(combobox1) If Not b Is Nothing Then If b = comboBox1.Value Then Workbooks("hoja2").Activate Cells(3,3) = h.Cells(b.Row, "c") end if end if Si te...

Lo puede conseguir de esta manera Presiona alt + f11 esto te lleva al vba aquí eliges insentar y inserta un modulo Y pegas esta macro Sub imprimir() If Range("a1") = "x" Or Range("b1") = "y" Then Range("a3:g6").Select ActiveSheet.PageSetup.PrintArea...

Puedes explicar major lo que intentas hacer por lo que veo en la columna B Quiere que todos los numero que sean menor que 6 copie la fecha en la misma columna Cells(Rows. Count, 2).End(xlUp). Row en esta parte le estas diciendo que empiece de abajo...

Es possible solo tiene que tener la informacion Muestranos la hoja donde tiene los datos que se va a copier en el cuerpo ¿O major dicho la base de datos estas en un ahoja de excel en el mismo libro o en otro?

Seria de la siguiente manera Private Sub CommandButton1_Click() Application.ScreenUpdating = False Ruta = "C:\Users\dani.martinez\Desktop\rntt\" nombre = "rntt.xls" Workbooks.Open Filename:=Ruta & nombre Sheets("results").Select ......tu...

Presentanos tu macro para ver en que podemos mejorarla

Muéstranos el código para ver en que podemos ayudarte

Necesitas una hoja en excel con esa informaciones que quieres Y con algo como estos lo puedes conseguir Seria de la siguiente manera en el botón buscar Private Sub CommandButton1_Click() Set h = Sheets("sheet1") Set b = h.Columns("A").Find(TextBox1)...