ciempo

Tor Cheer respondió: Suba una imagen de sus datos y ahí explique de forma gráfica lo que necesita para entender mejor y poder ayudarle

Tor Cheer respondió: A los 18 años aun tiene una vida por delante, su plan de vida que ya tenia lo puede retomar en cualquier momento. La vida esta llena de retos a cualquier edad, a su edad quizá sea lógico que nos encontremos en un momento como el que esta pasando,...

Dante Amor respondió: Te anexo la macro Sub Presentar_Mensaje() fila = InputBox("Escribe el número de fila") If fila = "" Or Not IsNumeric(fila) Then MsgBox "Proceso cancelado" Exit Sub End If Set dam = CreateObject("Outlook.Application").CreateItem(0) dam.Subject =...

Adriel Ortiz Mangia respondió: H O L A te paso la macro Set h1 = Sheets("Hoja1") Set b = h1.Columns("B").Find(TextBox2, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Ya existe" Exit Sub End If ' u1 = h1.Range("B" & Rows.Count).End(xlUp).Row + 1 H1. Cells(u1, "B") = TextBox2...

Dante Amor respondió: H o la: No encuentra el dato, porque en la celda tienes un número y en el textbox tienes un texto, entonces hay que convertir el dato que tienes en el textbox a valor numérico, pero solamente si el dato del textbox es un número. Se puede realizar con...

Elsa Matilde respondió: Entra al Editor de macros (presionando juntas las teclas ALT y F11) Selecciona con doble clic el objeto HOJA donde vayas a trabajar y allí copia este código. Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'solo se ejecuta al...

Dante Amor respondió: H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Columns("C")) Is Nothing Then With Range(Target,...

Dante Amor respondió: H o l a: Te anexo la macro actualizada. Cambia en la macro "hoja1" por el nombre de la hoja que vas a trabajar. Si no conoces el nombre de la hoja, pero sabes que siempre es la primera hoja, entonces cambia esta línea Sheets("Hoja1").Select Por esta...