• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel convertyeren voor maken flowcharts via Visio

Status
Niet open voor verdere reacties.
J

jpbtez

Nieuwe gebruiker
Lid geworden
10 jun 2019
Berichten
3
Hallo allen,

ik heb een excel met afgebeelde indeling onder de oranje balk.

Om deze te kunnen gebruiken om in visio een flowchart te maken zou ik een formule of vb script nodig hebben zodat de indeling als onder de groene balk wordt.

2019-06-10 09_49_23-Map1.xlsx - Excel.jpg

Ik dacht zelf om iets met indirect te proberen, maar wellicht is er een expert die zoiets zo uit de mouw schud?

Bedankt!

(En ik wilde het excel bestandje toevoegen, maar zie niet hoe?)
 

Bijlagen

  • Map1.xlsx
    9,3 KB · Weergaven: 27
Laatst bewerkt:
Hallo,

Welkom op dit forum. Bijlage bijvoegen kan m.b.v. het paperclipje
 
Verwijder de eerste rij.

Het resultaat in de kolommen M t/m P
Code: 
Sub hsv()
Dim sv, a, b(3), i As Long
sv = Cells(1).CurrentRegion
 With CreateObject("scripting.dictionary")
   For i = 1 To UBound(sv)
    a = .Item(sv(i, 1))
         If IsEmpty(a) Then a = b
           a(0) = sv(i, 1)
           a(1) = sv(i, 2)
           a(2) = a(2) & IIf(a(2) = "", sv(i, 3), ", " & sv(i, 3))
           a(3) = a(3) & IIf(a(3) = "", sv(i, 4), ", " & sv(i, 4))
         .Item(sv(i, 1)) = a
     Next i
   Cells(1, 13).Resize(.Count, 4) = Application.Index(.items, 0, 0)
  End With
End Sub
 
Geweldig!

Bedankt Harry!

Werkt als een speer.
Ga het proberen op een excel van 2400 regels, hoop dat het dan net zo mooi gaat

Groet,
Johan
 
gelukt

Hoi Harry,

het ging idd ook prima op mijn grote bestand.

Bedankt!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan