Dante Amor

Utiliza la siguiente macro Sub Juntar_Hojas() 'Por.Dante Amor Set h1 = Sheets("resumen") 'nombre de hoja resumen fila = 1 For Each h In Sheets If LCase(h.Name) <> LCase(h1.Name) Then h.Range("A1:F188").Copy h1.Range("A" & fila) fila = fila + 188 End...

Tal vez si pusieras el código de una macro te pueda ayudar a corregir el código. Te pongo un ejemplo. Supongo que tienes algo parecido a esto en tu macro: Sub codigo1() Sheets("enero").Select Range("A1").Select Selection.Copy...

Revisa que en la celda Range("AS111").Value tengas un número, revisa que efectivamente sea un número, puede ser que tengas un texto, o puede ser que la celda está vacía. Borra el contenido de la celda, revisa que el formato de celda sea General o...

Código actualizado Private Sub CommandButton4_Click() Application.ScreenUpdating = False Set h1 = Sheets("BIBLIOTECA") ruta = ThisWorkbook.Path & "\" arch = "Reporte" ' If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then MsgBox "Seleccione un reporte"...

Prueba con lo siguiente: Sub num_palabras() pal = Split(Range("A1"), " ") MsgBox "Número de palabras : " & UBound(pal) + 1 End Sub sal u dos

Te comento varios detalles. - Cuando inicias el userform, cargas el listbox1 con additem. Do While ActiveCell.Value <> "" ListBox1.AddItem ActiveCell ActiveCell.Offset(1, 0).Select Loop - Después cargas nuevamente el listbox1 pero con rowsource: With...

En tu imagen tienes 3 nombres: "EQUIPO_1", "EQUIPO_2" y "EQUIPO_3", quieres que los tres nombres se cambien ahora por lo que tienes en un textbox, quedando de esta forma: "LAS _AGUILAS_1", "LAS _AGUILAS_2" y "LAS _AGUILAS_3" O quieres cambiar...

Te anexo la macro Sub Borrar_Ciertas_Celdas() 'Por.Dante Amor For Each h In Sheets If UCase(Left(h.Name, 2)) = "PU" Then h.Range("A2, B5, D7:E10").ClearContents End If Next MsgBox "Celdas Borradas" End Sub En esta parte de la macro, puedes poner una...

Cambia range a esto: Range("A:B")

Veo un detalle, cuando pones el formato al textbox11 TextBox11 = Format(TextBox11, " #, 00") Estás poniendo coma #, 00 eso hace que el número se convierta en texto, luego divides un texto entre 100 y te envía el error "13 'No coinciden los tipos'"...