Dante Amor

H o l a : Te anexo la macro. Sub IngresoStock() 'Act.Por.Dante Amor ' INGRESO Macro ' Application.ScreenUpdating = False Set h1 = Sheets("Pedido") Set h2 = Sheets("Stock") ' u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 h1.Range("Tabla2[NUMERO DE...

Te anexo la macro actualizada Si la celda seleccionada no tiene comentarios, la macro no hace nada. Si la celda seleccionada ya tiene un comentario, entonces agrega el estado "(Cerrado)" Sub Macro2() 'Act.Por.Dante Amor If Not ActiveCell.Comment Is...

Prueba así: Worksheets("Hoja1").Range("c2").copy .Cells(NewRow, 12) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

En un correo nuevo envíame el archivo. ¿Quieres copiar toda la fila?

H o l a : Puedes poner un par de imágenes para ver cómo tienes los datos en la hoja1 y cómo quedarían los datos en la hoja destino. O describe qué celdas de la hoja1 hay que copiar a la hoja destino y en qué lugar debe ir cada celda. También indica...

H o l a: Suponiendo que tus datos están así, como ejemplo, el resultado quedaría en la columna "F" Pon el siguiente código en tu formulario en un commandbutton Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Then Exit Sub ' col =...

H o l a : Explica con ejemplos y con imágenes, lo que tienes y lo que esperas de resultado.

H o l a : Lo que pasa es que estás utilizando el nombre de la hoja como un objeto en esta parte: With Plan1 Te anexo la macro actualizada, lo que hago es establecer h como objeto de la hoja "Plan1", de esa forma el objeto h ya lo puedo utilizar. Sub...

H o l a : Es por el cambio de versión de excel 2010 o superior. Utiliza esta macro '***Macro Para enviar correos Sub correo() 'Por.Dante Amor Dim objOL As New Outlook.Application Dim objMail As MailItem Set objOL = New Outlook.Application col =...

H o l a : Para que se actualicen automáticamente, tienes que poner el código en el evento Change del textbox1, de esta forma: Private Sub TextBox1_Change() 'Act.Por.Dante Amor TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = ""...