Carlos Arrocha

[Hola. Prueba así. Sub colorear() 'Por.DAM For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") = 2 Then Range(Cells(i, "B"), Cells(i, "F")).Select Else Range(Cells(i, "B"), Cells(i, "F")).Select End If Next End Sub

[Hola. Tienes que llamar la macro dentro de thisworkbook con "Call Nombre de la macro"

[Hola, En el enlace tienes la solución https://youtu.be/AZTf7bTbGjg

[Hola Diana. Copia y guarda el contenido de los módulos "lo que está dentro de Sub y End Sub" en Word, por ejemplo, y elimina los módulos. Para eliminar, click derecho sobre el módulo y la opción quitar. Te va a pedir confirmación para guardar, le...

[Hola. A ver si te vale algo así: Private Sub BtnRegistrar_Click() For fila = 18 To 3000 If Hoja1.Cells(fila, 1) = "" Then F = fila Exit For End If Next Hoja1.Cells(fila, 1) = Me.ComboProductos.Value Hoja1.Cells(fila, 2) = Me.TexCantidad.Text...

[Hola. Prueba así Private Sub cmdagregar_Click() Dim Val1 As Double Dim Val2 As Double Val1 = Val(Txtmonto.Text) Val2 = Val(txtacumulado.Text) If chkgastos.Value = True Then txtacumulado.Text = Val2 + Val1 ElseIf Me.chkgastos.Value = False Then...

[Hola. Algún número concreto?

[Hola. Prueba así Private Sub ListBox1_Click() Cargar = ListBox1.ListIndex Me.TextBox1 = ListBox1.List(Cargar, 0) Me.TextBox2 = ListBox1.List(Cargar, 1) 'Txt_Descripcion = ListBox1.List(Cargar, 2) 'Txt_Precio = ListBox1.List(Cargar, 3) End Sub '<--...

De la misma forma Private Sub CommandButton1_Click() Range("D13:E45").ClearContents End Sub

[Hola. Prueba con esta a ver si te sirve. Sub Separa() Dim c As Range Dim i As Integer Dim n As Integer Dim p() As String Dim s As String Dim t As String s = " " For Each c In Selection t = c.value p = Split(t, s) n = UBound(p) For i = 0 To n...