Adriel Ortiz Mangia

[Hola Revisa ésta respuesta del generoso Dante Macro para envíar correos masivos con adjuntos diferentes

[Hola Pon imágenes un antes y después para entender mejor y apoyarte

[Hola prueba así Private Sub TBMuestraSocio_Change() ' fila = 2 'la uno tiene los rótulos ' uf = Sheets("Base de datos").Range("N" & Rows.Count).End(xlUp).Row ' CB_ProductoPpal.Clear ' d1 = Me.TBMuestraSocio d2 = Me.CB_ProductoPpal.Text ' While...

[Hola va la macro actualizada Sub indice_hx() ' Dim cHoja As Worksheet Dim L As Long L = 1 ' Set h = Sheets("Hoja2") ' DETERMINAR HOJA With h .Columns(1).ClearContents .Cells(1, 1) = "INDICE" .Cells(1, 1).Name = "Indice" End With For Each cHoja In...

[Hola Pon un ejemplo con datos reales

[Hola Va la macro Private Sub CommandButton1_Click() If OptionButton1 Then OptionButton1.Value = False End Sub valora la respuesta saludos!

[Hola va la macro Sub copiar() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h1.Range("A1:C3").Copy h2.Range("F1") h1.Range("A20:C22").Copy h2.Range("F20") MsgBox "fin" End Sub

[Hola Te paso la macro para usuario y contraseña Como hacer un formulario de acceso a otro formulario principal mediante usuario y contraseña en Visual Basic.

[Hola Para cerrar el formulario utiliza Unload me y para mantener el libro visible Application.Visible = True

[Hola Valorar ++excelente para finalizar Prueba con la siguiente macro Sub CopiaraWord() ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets.Add For Each h In Sheets If h.Name <> h1.Name...