MsgBox med data fra celler i flere linier

If cells(7,6) <> "" then strMessage = cells(7,6) & vbcr
If cells(8,6) <> "" then strMessage = strMessage & cells(8,6) & vbcr
If cells(9,6) <> "" then strMessage = strMessage & cells(9,6)

msgbox strMessage

Eller definér området som fx. Omraade1 og brug denne:

Sub Meddelelse()
Dim c
Dim Besked As String

  For Each c In Range("Omraade1")
      If Not IsEmpty(c) Then Besked = Besked & c.Value & " "
  Next

  MsgBox Besked

End Sub

Det skal vist være:

= Besked & c.Value & vbcrlf

word-hajen:

tak for hjælpen, det virker som sådan fint!

Jeg fik nok simplificeret mit spørgsmål lidt... Hvad nu hvis jeg har 30 celler der skal trækkes data fra. Vil der være en måde der er nemmere end at kopiere dine linier til 30 linier eller er det bare løsningen?

Markér de 30 celler og navngiv dem Omraade1. Så kan du anvende mit forslag.

;))

Hvis du endnu ikke ved hvordan du laver et navngivent område, så sig til!

brynil:

jo jo jeg ved godt hvordan jeg navngiver områder....

jeg er endt op med at kombinere jeres svar, så koden ser således ud:

Dim c
Dim Besked As String

  For Each c In Range("område1")
      If c <> "" Then Besked = Besked & c.Value & vbCrLf
  Next

  MsgBox Besked

Nu mangler vi bare et svar... :-)

Fint, at du nu har fået en msgbox, som viser det, du har behov for. Jeg kan dog ikke lade være med at spekulere på, om det nu også er den rigtige metode... når du har 30 værdier/tekster, som du vil vise.

Lige en sidebemærkning: Alle oplysninger til at starte med giver som regel den bedste indgangsvinkel.

Ja jeg ved godt at det virker lidt underligt at skulle have 30 linier i en msgbox, men jeg prøver at lave en validering på om brugeren har udfyldt alle felter i et ark korrekt og vil i den forbindelse have en msgbox der fortæller brugeren hvilke felter/sektioner der mangler udfyldelse.

Nu mangler jeg bare at få koden smidt ind foran min gem/print funktion, så den låser brugeren i at gemme, hvis ikke alle felter er udfyldt korrekt...

Er der en af Jer der smider et svar, så jeg kan få uddelt nogle point? :-)

Måske word-hajen også er point-haj ;) så smid dem blot til ham.

#bryniel -> Det er din metode, som michaelmce bruger, så jeg skal ikke have pointene.

I øvrigt er hajen en kvinde ;-)

Ihhh altså, som tiden dog forandrer tingene. I min lille og gamle verden ville en kvinde ikke bruge en haj som symbol, måske mere en lille sød rapand eller det mere almindelige sild! Hva' med word-silden? ...eller den rappe-word-and? Mjnarj - de lyder s.. ikke rigtige.

Så det er nok ikke helt forkert at du har valgt word-hajen. Men at du er en dame havde jeg aldrig gættet ud fra navnet. Men det er jo heller ikke det mest væsentlige ;)) - herinde!

Nå, men jeg samler egentlig ikke på points men skal heller ikke gøre en større sag ud af dét. Så når han nu siger han har kombineret vores kommentarer, så vil det vel være fair nok at dele dem. Det passer mig fint. Så kan jeg osse sidde og bilde mig selv ind det var mægtig galant af mig - hvis du altså ikke har noget imod det :))

Du er ikke den første, der synes, at en kvinde ikke kan bruge ordet haj *g*. Og så er kommet til den konklusion, at Word-silden (og i den dur) ikke lyder helt rigtigt. Giver en helt anden mening, ikk'?

Du skal få lov til at tage den galante rolle.

Svar fra mig :-) Godt at du fik løst dit problem.

Tusind tak til Jer begge for hjælpen. Nu er jeg blevet en del klogere (bilder jeg mig selv ind :-))

Tak for points! Så længe du spør' blir' du klogere ;)