Hola, Me gustaría hacer un macro q vigilara una columna y si su valor es > 0 copie el nombre de una persona de otra celda a otra hoja. Es decir en el excel adjunto q si la columna 1 de la hoja 1 es > 0 copie el nombre de la columna dos hoja 1 a la celda A2 de la hoja 2. Como hay más de uno q sea >0 entre medio pondré una instrucción para enviar un mail q es la adjunta de ron de bruin cambiada alguna instrucción. Muchas gracias Sub Mail_ActiveSheet() 'Working in Excel 2000-2013 'For Tips see: https://www.rondebruin.nl/win/winmail/Outlook/tips.htm Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook 'Copy the ActiveSheet to a new workbook ActiveSheet.Copy Set Destwb = ActiveWorkbook 'Determine the Excel version and file extension/format With Destwb If Val(Application.Version) < 12 Then 'You use Excel 97-2003 FileExtStr = ".xls": FileFormatNum = -4143 Else 'You use Excel 2007-2013 Select Case Sourcewb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If .HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If End With ' 'Change all cells in the worksheet to values if you want ' With Destwb.Sheets(1).UsedRange ' .Cells.Copy ' .Cells.PasteSpecial xlPasteValues ' .Cells(1).Select ' End With ' Application.CutCopyMode = False 'Save the new workbook/Mail it/Delete it TempFilePath = Environ$("temp") & "\" TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .to = Sheets("MODELO INFORME MENSUAL").Range("E9").Value .CC = "" .BCC = "" .Subject = Sheets("MODELO INFORME MENSUAL").Range("C5").Value .Body = "Benvolgut/da" + Chr(13) + "Li envíem el detall de despesa que l’Estabulari Medicina de la UB ens ha reportat en el mes i per l’IP indicat a l’assumpte d’aquest email. Si us plau confimi que es OK i el projecte de càrrec." + Chr(13) + "Gràcies" .Attachments.Add Destwb.FullName '.Send 'You can add other files also like this '.Attachments.Add ("C:\test.txt") .Display 'or use .Send End With On Error GoTo 0 .Close savechanges:=False End With 'Delete the file you have send Kill TempFilePath & TempFileName & FileExtStr Set OutMail = Nothing Set OutApp = Nothing With Application .ScreenUpdating = True .EnableEvents = True End With End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Copiar celda a otra hoja segun su valor

Autor del tema kfiguer
Fecha de inicio 7 Jun 2013

kfiguer

New member

7 Jun 2013

Hola,
Me gustaría hacer un macro q vigilara una columna y si su valor es > 0 copie el nombre de una persona de otra celda a otra hoja.
Es decir en el excel adjunto q si la columna 1 de la hoja 1...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Copiar filas de datos de una hoja a otra - (celda de validación)

Respuestas: 3

25 Nov 2025

Erik Lopez

Pregunta

Como borrar y copiar datos a otra celda

Respuestas: 0

21 Jun 2024

ELVIS VASQUEZ MEZA

Pregunta

Macro copiar de una hoja a otra y bajar de celda para volver a copiar

Respuestas: 2

20 Mar 2024

FGV

Resuelto

Como copiar una celda a otra usando una condicion

Respuestas: 2

20 May 2023

Fernando Pedro Ordelin Sa

Resuelto

Copiar celda solo si otra cumple una condicion

Respuestas: 2

23 Dic 2022

alejo farias

Pregunta

Copiar desde una celda a otra en diferentes libros

Respuestas: 3

19 Ago 2022

Haplox

Pregunta

copiar columna de una tabla segun parametro de otra celda

Respuestas: 11

6 Jul 2022

trick

Pregunta

Copiar valor de celda con fórmula a otra pestaña usando macros

Respuestas: 6

5 Mar 2021

Leopoldo Blancas

Pregunta

Macro para copiar una celda con fórmula y copiar en otra hoja

Respuestas: 2

8 Nov 2020

Misadedoce

Pregunta

Copiar datos de una Hoja a otra Hoja al Seleccionar una Celda

Respuestas: 4

24 Ago 2020

Mute_God

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba