Jhonatan Gonzalez Ricaurte

Tengo una macro que copia hojas de un libro a otro pero en realidad lo que necesito es solo copiar los valores, para eliminarle el peso al archivo, pero no se por que no me funciona, tengo esta rutina, pero puedo enviar el archivo para que lo miren:...

Private Sub ComboBox1_Change() dato = ComboBox1 Set busco = ActiveSheet.Range("1:1").Find(dato, LookIn:=xlValues, LookAt:=xlWhole) If Not busco Is Nothing Then busco.Activate Unload Me End If End Sub Tengo esta rutina para buscar ingredientes que...

Buenas deseo que esta rutina se me repita, no se como hacer un loop, lo que quiero es que me pregunte una y otra vez cual lamina quiero buscar, es para hacer una macro para marcar laminas repetidas del panini del mundial, pero esta rutina cada vez...

Buenas tardes, Lo que pasa es que tengo un libro al cual le tengo asignada una macro para crear hojas, en cada hoja se llenan unos datos. Lo que necesito es extraer la información de unos rangos específicos que pueden variar entre la celda M19 hasta...

Lo que quiero es poder visualizar en la hoja de excel los textos que voy ingresando en el textbox de un userform de unos datos de productos para mascotas Gracias de antemano

Resulta que al correr la macro me sale Error "1004", en la celda A1 escribí NOMBRE como titulo, no corre la macro en la celda A2 si no hay nada escrito en dicha celda, debo escribir algo en la celda A2 para que funcione, quisiera saber por que ? Este...

Range("B10:B249").Formula = Left(Worksheets("BASE").range("B10:B249")

Como estas, la primera pregunta es como hacer para que los listbox que estoy usando en el formulario nuevo ingreso también estén y funcionen en el formulario modificar, es decir que cuando le de modificar no estén textbox sino listbox y que pueda...

Buenas, en este caso quiero rellenar un userform donde tengo varios optionbuttons, en mi ignorancia basándome en este ejemplo: For i = 1 To 19 Me.Controls("TextBox" & i).Value = ActiveCell.Offset(0, i - 1).Value Next i Cambie los valore y lo deje...

Dim fila As String fila = InputBox("Ingrese la fila") Rows(fila).Select Quisiera saber por que esto me genera Error "13" Agradezco mucho su atención prestada