Hej
Jag kan i princip inget om VB och har endast lite grundläggande programmeringskunskaper - som dessutom har rätt dåligt bäst-före-datum. Kan inte ens förklara vad jag vill i rubriken.
Jag har ett exceldokument med ett makro. Jag har kopierat ett VB-script och kopplat till en knapp i detta dokument. Det enda som scriptet gör är att läsa av en cell, skicka informationen i denna cell, (samt en länkadress till excelfilen) i ett mail.
Nu är problemet att jag vill ha flera knappar av precis samma karaktär, men som läser av information från cellen i nästa rad. Dvs knapp 2, läser av informationen från D5, knapp 3 läser av från D6 osv osv. Jag skulle helt enkelt vilja kopiera knappen på enklast möjliga sätt men få cellraden att stega 1 steg för varje kopia. Ungefär som man utvidgar en cell.
Jag kan i princip inget om VB och har endast lite grundläggande programmeringskunskaper - som dessutom har rätt dåligt bäst-före-datum. Kan inte ens förklara vad jag vill i rubriken.
Jag har ett exceldokument med ett makro. Jag har kopierat ett VB-script och kopplat till en knapp i detta dokument. Det enda som scriptet gör är att läsa av en cell, skicka informationen i denna cell, (samt en länkadress till excelfilen) i ett mail.
Kod:
Sub Knapp1_Klicka()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<HTML><BODY>"
strbody = strbody & "Text... " & [D4].Value & " mer text... " & "<A href=sökväg till XLs filen>Genväg till dokumentet</A>"
strbody = strbody & "</BODY></HTML>"
ActiveWorkbook.Save
On Error Resume Next
With OutMail
.to = [Y4].Value
.CC = ""
.BCC = ""
.Subject = "Text... " & [D4].Value & " mer text..."
.HTMLBody = strbody
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Nu är problemet att jag vill ha flera knappar av precis samma karaktär, men som läser av information från cellen i nästa rad. Dvs knapp 2, läser av informationen från D5, knapp 3 läser av från D6 osv osv. Jag skulle helt enkelt vilja kopiera knappen på enklast möjliga sätt men få cellraden att stega 1 steg för varje kopia. Ungefär som man utvidgar en cell.
