Array loop - VBA - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

2016-07-06 07:39

hassanikassan

Medlem sedan: 2016-06-28

8 inlägg

Re: Array loop

Förstår inte riktigt hur jag ska få ihop det tyvärr. Finns det ingen enkelt sätt att få ut det jag har i min print till ett nytt worksheet? Försökt få ihop det du skrivit men blir bara en massa error hela tiden :/ Jag har helt enkelt för dålig kunskap för tillfället.

Skulle uppskatta en enklare funktion som bara la till alla ID-numbers till ett nytt worksheet.

Vet att jag är problematisk haha, men uppskattar hjälpen jag får som fan!

Tack!

2016-07-06 08:41

Christian

Medlem sedan: 2015-08-26

1209 inlägg

Re: Array loop

Ändrad av Christian på 2016-07-06 08:41:54

Ok, Efter raden du skrivit: MsgBox (strToPrint), skriver du:

Call prnt(strToPrint)

Efter End sub klistrar du in:

function prnt(str As String)

Dim ws As Worksheet
Set ws = Sheets("blad1") ' Ersätt blad1 med det bladet du vill skriva ut till.

ws.Range("A1") = str

End function

Problemet med denna är att allt hamnar i en enda cell.. Därför jag ville skriva ut resultatet via en array ist'ället.

2016-07-06 08:51

hassanikassan

Medlem sedan: 2016-06-28

8 inlägg

Re: Array loop

Grymt! Det funkar helt klart för mig att ha allt i en cell. Tack så sjukt mycket!

Hur ska jag skriva ifall jag vill lägga till Sheetet som det ska ligga i? Har liksom inte ett skapat sheet som det skall hamna i, utan jag vill lägga till ett nytt?

Mvh!+

2016-07-07 08:59

Christian

Medlem sedan: 2015-08-26

1209 inlägg

Re: Array loop

Då ser din prnt function ut såhär istället:

Function prnt(str As String)

Dim ws As Worksheet
Set ws = Sheets.add

ws.Range("A1") = str

End function

Sida 2 av 2

Föregående