Я не могу поместить выбранную ячейку в переменную в VBA

Question

Я новичок в VBA, но попробую объяснить.Я пытаюсь создать переменную из выбранной ячейки и с ее помощью разработать почту с помощью cell.Offset, но я не знаю, как продвигаться вперед.Это мой код:

    Sub sendmail()
Dim i, j As Integer
Dim pagina1 As Worksheet
Set pagina1 = ActiveWorkbook.Worksheets("Example1")
Dim OutApp As Object
Dim Correo As Object
Dim cell As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
On Error Resume Next
Set OutApp = GetObject("", "Outlook.Application")
Err.Clear
If OutApp Is Nothing Then Set OutApp = CreateObject("Outlook.Application")
OutApp.Visible = True
Set Correo = OutApp.CreateItem(0)

'THIS IS THE PLACE WHERE THE SENTENCE THAT I NEED, SHOULD BE

        email_ = cell.Value
       'subject_ = cell.Offset(0, 1).Value
        body_ = cell.Offset(0, 11).Value
        body1_ = cell.Offset(0, 6).Value
        cc_ = cell.Offset(0, 2).Value
        attach_ = cell.Offset(0, 4).Value
        destinatario_ = cell.Offset(0, 16).Value
        memofolio_ = cell.Offset(0, 17).Value
        Nmemofolio_ = cell.Offset(0, 18).Value
        Fechamemofolio_ = cell.Offset(0, 19).Value

'Crear el correo y mostrarlo
With Correo
    .To = email_
    .CC = cc_
    .Subject = "Status of the Project"
    .Body = "Infomo a usted que la iniciativa con nombre: " & body1_ & " fue enviada a " & destinatario_ & " via " & memofolio_ & " N°" & Nmemofolio_ & " con fecha " & Fechamemofolio_ & " para su revisión. Saluda Atentamente a usted, Unidad de Preinversión División de Planificación y Desarrollo"
    .Display
End With
With Application
.EnableEvents = True
.ScreenUpdating = True
End With

End Sub

Если вы можете помочь мне с этим, я буду вечно благодарен

Answer 1

Вам нужно установить переменную ячейки в диапазон, указав также лист

, например,

Set cell = pagina1.cells(1,1) 

Или

Set cell = pagina1.Range("A1") 

Я предпочитаю вышекак конкретно и однозначно.Вы также можете работать с выбором, если есть определенное действие выбора ячейки

Set cell = Selection