Quiero Mejorar Este CODIGO MSGBOX

[joseroberto19]

Dim u As Long
    If WorksheetFunction.CountA(Cells) > 0 Then
        u = Cells.Find(What:="*", After:=[A1], _
              SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row...

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í

 

[yefrid18]

Hola,
Si manejas una estructura de este tipo, puedes hacerlo con formulas y luego envias el msge

A B
CODIGO MTS CUBICOS
1 E1 30
2 E2 50
3 E3...

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í

 

[joseroberto19]

muchas gracias le hice algunas modificaciones y estuvo espectacular

 

[joseroberto19]

muchas gracias antoni ya lo solucione mil gracias amigo :D