Adriel Ortiz Mangia

[Hola Te paso la macro actualizada, agrega un combobox para que selecciones una hoja a buscar Valora la respuesta para finalizar saludos! Private Sub anular_Click() ' '***Act. Por Adriel Ortiz ' hoja = ComboBox1 Select Case Sheets(hoja).Name ' Case...

[Hola Envíame tu archivo con ejemplos y el resultado deseado a [email protected]

[Hola Muestra una imagen de tus datos y el resultado deseado o envíame tu archivo con ejemplos

[Hola prueba así Total = Val(Label36) + Val(Label37) + Val(Label38) + Val(Label39) + Val(Label40) TextBox6 = Format(Val(Total), "#0.00") Valora la respuesta para finalizar saludos!

[Hola Te propongo esta macro Para finalizar hay 2 opciones bueno o Excelente saludos! Sub buscar() ' '***Por Adriel Ortiz ' Set h1 = ActiveSheet ' Set r = h1.Columns("C") Set b = r.Find(h1.Range("B1"), lookat:=xlWhole) If Not b Is Nothing Then...

[Hola usa esta guía https://exceltotal.com/dividir-texto-en-columnas/ en parte de la seleccionas separadores por coma Valoras la respuesta para finalizar saludos!

[Hola Te paso la macro, lo pones en el evento change de tu hoja a utilizar Private Sub Worksheet_Change(ByVal Target As Range) ' '***Por Adriel Ortiz ' If Not Intersect(Target, Range("D:D")) Is Nothing Then If Target.Count > 1 Then Exit Sub If...

[Hola Te paso la macro Sub evaluar() ' '***Por Adriel Ortiz ' rango = "A1:B10" ' rango ' For Each r In Range(rango) If r < 0 Then r.Value = 0 End If Next r MsgBox "Fin" End Sub Valora la respuesta para finalizar

[Hola Sub copiarDatos() ' '***Por Adriel Ortiz ' Set h1 = Sheets("BASE JUNIO") ' For i = 3 To h1.Range("G" & Rows.Count).End(xlUp).Row hoja = h1.Cells(i, "G") ' For Each h In Sheets If h.Name <> h1.Name Then If h.Name = hoja Then j = h.Range("A" &...

[Hola Lo reviso y te aviso