Dante Amor

H o l a: Entra al menú Edición de VBA, en Reemplazar, selecciona Proyecto Actual, escribe la palabra a buscar, escribe la nueva palabra, y presiona Reemplazar todo:

H o l a: Te anexo la macro Sub BorrarCeldas() 'Por.Dante Amor For Each c In Range("C3:D39, H3:I39, M3:O39") If IsNumeric(c.Value) Then c.Value = "" Next End Sub

H o l a: Puedes explicar con imágenes lo que tienes y lo que esperas como resultado, explica con ejemplos y te envío la macro.

Puedes poner la macro para hacer las actualizaciones.

H o l a: Te anexo la macro, si le falta algo a la macro con respecto a tu petición, puedes solicitar más información. De lo contrario podrías valorar la respuesta. Sub ContarCeldasVacias() 'Por.Dante Amor Range("A1:C10").Interior.ColorIndex = xlNone...

H o l a: Te anexo la macro para enviar por Gmail, actualiza los siguientes datos en la macro: “Hoja1” por el nombre de tu hoja que quieras enviar. "[email protected]" por tu correo de gmal. "pwd" por tu password de gmail. "[email protected];...

H o l a: Pon la siguiente macro en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("E3:G10")) Is Nothing Then cuenta =...

H o l a Diego: Reviso el archivo que me enviaste y cuando tenga la solución te la envío. Sal u dos

H o l a: En el siguiente enlace respondí algo similar. Uso de caracteres especiales como el código de VBA Lo que tienes que hacer es poner en una celda el caracter que quieres reemplezar y en la macro tienes que poner el caracter que deseas. Esta es...

H o l a: Te anexo la macro Sub GuardarVenta() 'Por.Dante Amor Set h1 = Sheets("formulario") Set h2 = Sheets("ventas") i = 4 Do While h1.Cells(i, "B") <> "" j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h2.Cells(j, "A") = h1.[I3] h2.Cells(j, "B") =...