Dante Amor

Utiliza lo siguiente: TextBox5.Text = Sheets("1").Cells(ComboBox2.ListIndex + 3, 6).Value TextBox5.BackColor = Sheets("1").Cells(ComboBox2.ListIndex + 3, 6).Interior.Color

Te anexo el código actualizado. Dentro del código te puse unas observaciones: Private Sub CommandButton1_Click() If cbxnsubc.ListIndex = -1 Then MsgBox "Debes Selccionar un Subcapitulo" Exit Sub End If 'Subc = Val(cbxnsubc.----(cbxnsubc.----,0)) Set...

Prueba con la siguiente macro. Si modificas la celda A1, se pintará de amarillo. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then...

No entendí muy bien tu ejemplo, faltó el número 3, y además Enrique no está duplicado, pero le pusiste el número 6. ¿Los nombres van a estar ordenados?

Prueba con lo siguiente: Sub Imprimir_Hoja() fin = Sheets("FORMULARIO").Range("D7").Value Sheets("ETIQUETAS").PrintOut from:=1, to:=fin End Sub

Qué versión de excel tienes, es por outllook, cuál es la macro.

Envíame un correo con tu archivo. En la hoja1 pones tus datos y en la hoja2 me pones el resultado esperado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Nelia Garcia”

Te anexo la macro Sub copiar_celdas2() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u1 = h1.Range("A" & Rows.Count).End(xlUp).Row If u1 > 8 Then h1.Range("A9:A" & u1).Copy H2. Range("A9"). PasteSpecial xlValues h1.Range("B9:B" & u1). Copy h2....

Te anexo la función actualizada Function Num_texto(Numero) Dim Texto Dim Millones Dim Miles Dim Cientos Dim Decimales Dim Cadena Dim CadMillones Dim CadMiles Dim CadCientos Texto = Numero ' If Left(Texto, 1) = "0" Then existe = True End If ' Texto =...

Te anexo la macro Sub copiar_celdas() Set h1 = Sheets("Hoja A") Set h2 = Sheets("Hoja B") h1.Range("B10:D" & h1.Range("B" & Rows.Count).End(xlUp).Row).Copy h2.Range("B10").PasteSpecial xlValues Application.CutCopyMode = False MsgBox "Celdas copiadas"...