Dante Amor

Cambia la propiedad ShowModal del userform a False 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Te falta el val del testbox n_banches Private Sub n_baches_Change() cant_total = Format(Val(peso.Value) * Val(n_baches.Value), "#.##") End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H o l a: Prueba la siguiente macro para ver si te funciona enviar un correo desde excel. Cambia en la macro los siguientes datos: correo = "[email protected]" 'correo de office passwd = "pwd" 'password del correo destino = "usuario@gmailcom"...

H o l a: Envíame tu archivo y me explicas con ejemplos el resultado que esperas. Recuerda poner tu nombre de usuario en el asunto. Sal u dos

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor If Target.Column <> 1 Then Exit Sub If Target.Count > 1 Then Exit Sub ' If WorksheetFunction.CountIf(Columns(1), Target.Value) > 1 Then MsgBox "El...

Te anexo el código If OptionButton1.Value = True Then ' Set b = Hoja20.Columns("A").Find(suministro, lookat:=xlWhole) ' If Not b Is Nothing Then ' Hoja20.Rows(b.Row).Delete ' End If For i = Hoja20.Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1 If...

H o la : Te anexo la macro. Pon en la macro el nombre de tu tabla en esta línea: tabla = "Tabla1" La macro: Sub ConvertirTabla() 'Por.Dante Amor Set h1 = Sheets("ORIGEN") Set h2 = Sheets("RESULTADO") tabla = "Tabla1" h2.Cells.Clear ' fini =...

Busca en la red este archivo, vienen conceptos básicos Gran tutorial de macros Puede ser de este enlace: http://www.academia.edu/11470478/GRAN-TUTORIAL-DE-MACROS

Tal vez estás cargando varias veces el mismo userform, en tal caso, carga los combos en el evento initialize. Quita el evento Activate y crea el initialize: Private Sub UserForm_Initialize() tipo_operacion.AddItem "ENTRADA" tipo_operacion.AddItem...

H o l a: Te anexo la macro Crea en tu archivo 2 hojas con los nombres "origen" y "destino". En la hoja "origen", en la columna "A" y empezando en la fila 1, pon tu información importada. Sub Sectores() 'Por.Dante Amor Set h1 = Sheets("origen") Set h2...