Carlos Arrocha

Si entendí bien, quieres que el dato de una celda cambie, cuando seleccionas otra. Si es así prueba lo siguiente. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A2:A15")) Is Nothing Then Range("B2") =...

[Hola Juan. No sé como tienes estructurado tu código, pero una opción puede ser con una condición if, por ejemplo: Sub Ejemplo() Set h1 = Sheets("Nombre de la hoja") If h1.[A1] = "Black" Then 'Nada Else Call ganador Call empate End If End Sub

[Hola. Si quieres cargar el textbox con la fecha actual. Private Sub UserForm_Initialize() TextBox1.Value = Date End Sub

[Hola. Te dejo la macro para poner en un botón. Ingresa el dato a buscar en el textbox1, en el textbo2 te mostrará el resultado de la col. B. [Saludos, Carlos Arrocha. Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") If TextBox1 = "" Then...

[Hola. Una opción es que lo concatenes. Por ejemplo, si tienes 6 etiquetas con resultados, puedes añadir otra para que aglutine todo. Private Sub CommandButton1_Click() Label7.Caption = Label1 & Label2 & Label3 & _ Label4 & Label5 & Label6 End Sub Y...

[Hola Javier. Te pongo un ejemplo para un botón, pero también lo puedes poner dentro del evento change del combobox. Private Sub CommandButton1_Click() If ComboBox1 = "" Then Exit Sub Set h = Sheets("Hoja1") Set b = h.Range("A:A").Find(ComboBox1,...

[Hola Jaime. Revisa que en la celda P2 tienes formato número o general, puede que lo tengas en porcentaje.

Te paso es código. Ponlo en un módulo, seleccionas las celdas en la hoja activa y ejecutas la macro. Recuerda valorar la respuesta, Graciass. Sub Reemplazar() Selection.Replace What:="1=", Replacement:="=" End Sub

Prueba con este código. Está dentro del evento click del botón y solo tienes que cambiar los nombres de las cajas de texto. Private Sub CommandButton1_Click() Dim Last As Object Set Last = Hoja1.Range("a65536").End(xlUp) Last.Offset(1, 0).Value =...

Coloca el código dentro de la hoja donde quieras que actué. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then If Target.Row = 3 Then MsgBox "Celda bloqueada" End If End If End Sub