Henry Wall

Dante Amor respondió: Prueba con lo siguiente. Pon la macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'pinta de rojo cuando se captura un dato en el rango 'y en la columna D el valor es menor a 1 Set rango =...

Programar Excel respondió: Esto podría aportarte algo más https://youtu.be/vF2OL0xfRIY https://youtu.be/pXi8ji1MO3Q

James Bond respondió: Este es un ejemplo parecido a lo que buscas, al seleccionar un nombre de la lista lo busca en la hoja cliente y copia todos sus registros a la hoja encuesta, al dar click en copiar todos copia todos los registros de la hoja clientes a la hoja...

Dante Amor respondió: H o l a : En un correo nuevo envíame tu archivo con el formulario y me explicas con comentarios lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Henry Wall” y el título de esta pregunta.

Dante Amor respondió: Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Then MsgBox "Captura un dato" Exit Sub End If If IsNumeric(TextBox1) Then dato = Val(TextBox1) Else dato = TextBox1 Set b = Sheets("Hoja3").Columns("M").Find(dato,...

Adriel Ortiz Mangia respondió: H o l a. Felix la verdad que hay muchas David Asurmendi http://davidasurmendi.blogspot.pe/p/cursos-de-excel-gratis-online.html https://www.youtube.com/channel/UCfoCe_a1EPntK64tD1Z8yMg Otto Javier Gonzales...

Dante Amor respondió: Te anexo la macro del commandbutton actualizada para sumar en el textbox2 Private Sub CommandButton1_Click() 'Por.Dante Amor Set h = Sheets("Contratos") TextBox1 = "" existe = False For i = 1 To h.Range("B" & Rows.Count).End(xlUp).Row If h.Cells(i,...