Toldeman

Hola, prueba con este codigo. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Hoja1.Range("A3:M6500").Interior.Color = xlNone Range("A" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.Color = vbYellow End Sub Un saludo.

Hola, sube un pequeño ejemplo de lo que quieres hacer e indica resultado deseado. Saludos.

Hola. Sube un pequeño ejemplo de lo que quieres hacer, y en base al archivo podremos trabajar tu consulta. Un saludo.

Hola. Prueba poniendo este codigo en el evento change de la hoja. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Offset(0, -1).Value = Target.Value Then Target.Interior.ColorIndex = 45 If WorksheetFunction.Sum(Target.Value - Target.Offset(0, -1).Value) = -1000 Then Target.Interior.ColorIndex = 3 End Sub Saludos.

Hola. Prueba este codigo. Lo manda de forma individual, solo ajustalo a tus necesidades. For i = 7 To Range("A" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").CreateItem(0) dam.To = Range("A" & i).Value 'Destinatarios dam.Subject = "tuasunto" dam.body = Range("B" & i).Value '"Cuerpo del mensaje dam.send 'El correo se envía en automático 'dam.Display 'El correo se muestra Next Saludos.

Hola. Sube un archivo, con un pequeño ejemplo de lo que quieres hacer. Un saludo.

Hola. Ya lo solucione. Tenia que declarar la variable correo. Dim Correo As Outlook.MailItem Gracias.

Hola Abraham. Gracias por responder. El lunes que vuelvo al trabajo lo pruebo y te comento. De nuevo muchas gracias.

Buenos dias, hace tiempo el gran Antoni me ayudo con un codigo para enviar un email eligiendo la cuenta de envio. Este codigo en un libro de excel que tengo funciona perfecto. Ahora he querido trasladarlo a una base de datos hecha en access pero me da un error, le estoy dando mil vueltas pero no logro entender porque se para en la linea donde debe poner la cuenta de envio. Adjunto una captura.

Hola. No lo tengo muy claro, pero prueba este codigo. Sub encontrar() Dim rng As Range Dim ult As Long ult = Hoja1.Range("B2:B" & Rows.Count).End(xlDown).Row Set rng = Hoja1.Range("B2:B" & ult) For Each cel In rng If cel = "Completar con Documento UUID" Then MsgBox "Ingresar Documento UUID" Next End Sub Saludos.

Cambia la linea de la variable ult por esta ult = Range("A2:A" & Rows.Count).End(xlDown).Row Saludos

Es verdad antoni, estoy muy liado con mi trabajo y cuando entro casi todos los post estan contestados por lo que no participo mucho. Pero de mis grandes amigos me sigo acordando. Un abrazo muy fuerte.

Hola revisa el adjunto. Lo que pretendes solo se puede hacer con vba. Un saludo. Cambia color Texto de imagenes.xlsm

Hola. Prueba esta formula: =BUSCARV(Producto1;Tabla2[[Producto]:[Precio compra]];4;0) Saludos.