Notifikationer

Markér alle som læst Log ud

splokit Nybegynder

11. maj 2007 - 10:19 Der er 14 kommentarer og
1 løsning

Select Case to array

Hey er der en skal kan hjælpe med at lave den her om til array
ved ikke lige hvordan jeg bruger et array :S

Select Case (Cells(r, 5))' 11 - 17 - 23 Der er 4 select case som end her
Case C1
MSG = MSG & Ms1 & Fr & Format(Cells(r, 6), "hh:mm") & " " & Cells(r, 7) & Ti & Format(Cells(r, 8), "hh:mm") & " " & Cells(r, 9) & vbCrLf
Case C2
MSG = MSG & Ms2 & Fr & Format(Cells(r, 6), "hh:mm") & " " & Cells(r, 7) & Ti & Format(Cells(r, 8), "hh:mm") & " " & Cells(r, 9) & vbCrLf
Case C3
MSG = MSG & Ms3 & Fr & Format(Cells(r, 6), "hh:mm") & " " & Cells(r, 7) & Ti & Format(Cells(r, 8), "hh:mm") & " " & Cells(r, 9) & vbCrLf
Case C4
MSG = MSG & Ms4 & Fr & Format(Cells(r, 6), "hh:mm") & " " & Cells(r, 7) & Ti & Format(Cells(r, 8), "hh:mm") & " " & Cells(r, 9) & vbCrLf
Case 11 To 35
MSG = MSG & MsH1 & Cells(r, 5) & Fr & Format(Cells(r, 6), "hh:mm") & " " & Cells(r, 7) & Ti & Format(Cells(r, 8), "hh:mm") & " " & Cells(r, 9) & vbCrLf
If Dir(Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kl1 & Filnavn) <> "" Then
If Dir(Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kv1 & Filnavn) <> "" Then
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kl1 & Filnavn
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kv1 & Filnavn
Else
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kl1 & Filnavn
End If
Else
If Dir(Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kl2 & Filnavn) <> "" Then
If Dir(Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kv2 & Filnavn) <> "" Then
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kl2 & Filnavn
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kv2 & Filnavn
Else
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kl2 & Filnavn
End If
Else
If Dir(Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kl3 & Filnavn) <> "" Then
If Dir(Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kv3 & Filnavn) <> "" Then
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kl3 & Filnavn
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kv3 & Filnavn
Else
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & Vv1 & Cells(r, 5) & Kl3 & Filnavn
End If
End If
End If
End If
Case Else
End Select

Synes godt om

word-hajen Nybegynder

11. maj 2007 - 16:34 #1

Skal du bruge ovenstående i forbindelse med dit spørgsmål http://www.eksperten.dk/spm/774944?

For i så fald synes jeg "bare", at du skal lave en lang streng med alle filnavnene og så bruge en # imellem hvert enkelt filnavn.

Synes godt om

splokit Nybegynder

14. maj 2007 - 08:46 #2

Kan du ikke give mig et eksempel på det?

Synes godt om

word-hajen Nybegynder

14. maj 2007 - 14:32 #3

Dim strAttachments as string

If strAttachments = "" then
strAttachments = "Filnavn1"
Else
strAttachments = strAttachments & "#" & "Filnavn2"
end If

******
Så for hver gang du laver en mailThis.Attachments osv. i ovennævnte, skal du reelt "bare" koble et ekstra "#" og så filnavnet på.

Synes godt om

word-hajen Nybegynder

20. maj 2007 - 13:19 #4

Hvordan går det her?

Synes godt om

splokit Nybegynder

22. maj 2007 - 12:34 #5

pt ikke så godt for kan ikke få det til at virke.
for mine filer er ikke faste og det er nye filnavne for hver dag

Synes godt om

word-hajen Nybegynder

22. maj 2007 - 13:54 #6

De skal såmænd heller ikke være faste, men kan snildt være variable.

Aflæser du ikke filnavnene et sted fra? Eller "strikker" dem sammen ved hjælp af nogle værdier i nogle celler og så dato osv.?

Du har jo tidligere lavet kode, hvor du har "strikket" et filnavn sammen og brugt det, når du vedhæftede en fil til en mail. Det er det samme, du skal gøre her.

Synes godt om

splokit Nybegynder

23. maj 2007 - 14:03 #7

Jep det er nemlig sådan den laver navne på de filer jeg bruger... men der er så lige en hvis og hvis ikke.. og en case selection hvis ikke en bestemt celle har nummerne mellem 11 og 35 skal den ikke vedhæfte filer.. så skal den bare skrive den bestemt beskeb via de celler i samme række.

Synes godt om

word-hajen Nybegynder

23. maj 2007 - 19:00 #8

Jamen, har du ikke allerede lavet din Select case-statement (den i spørgsmålet)?

Synes godt om

splokit Nybegynder

24. maj 2007 - 11:48 #9

Er det så bare den som skal over!?

Synes godt om

word-hajen Nybegynder

26. maj 2007 - 19:11 #10

Nej, den skal ikke bare over. Du skal - de steder hvor du bruger mailThis.Attachments.Add - sammensætte en streng af filnavnene (se min kommentar 14/05-207 14:32:54).

Synes godt om

splokit Nybegynder

30. maj 2007 - 14:02 #11

Du bliver nok nød til at vise det for jeg er ikke med.. sorry..

jeg har nu bare en mappe på "C:\Test\" hvor der er 4 filer pt som den skal smide på
de mails som den laver hvis hvilken fil som den skal have med finder den ud af via
værdien på arket.

en lille demo som laver mail uden attachments

http://www.splokit.com/excel/Redemption.xls

Synes godt om

splokit Nybegynder

30. maj 2007 - 14:04 #12

Btw, filerne hedder 1.pdf og 2.pdf osv.

hvis bare den kan å de filer med kan jeg nok komme til at forstå ideen i det hele.

Synes godt om

word-hajen Nybegynder

01. juni 2007 - 21:43 #13

Prøv at se min kommentar 14/05-2007 omkring at "strikke" en streng sammen med filnavne. Lad os sige, at du skal vedhæfte 1.pdf og 4.pdf og 7.pdf. Så skal din streng se således ud:

"1.pdf#4.pdf#7.pdf"

Synes godt om

splokit Nybegynder

23. august 2007 - 12:17 #14

kom med et svar her ikke haft tiden til at fikse det..

Synes godt om

word-hajen Nybegynder

23. august 2007 - 12:52 #15

Svar

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
problem med mailbesked Af Pestilensen i Excel	1	I går 11:16	I går 13:33
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	13	17/08/202615:14	I går 23:10
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel	13	24/07/202611:08	03/08/202618:42
Opdatering af celler i excel ark Af lurup i Excel	2	09/06/202619:40	10/06/202614:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS