*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Transpose in VBA  (gelezen 34144 keer)

0 leden en 1 gast bekijken dit topic.

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Transpose in VBA
« Gepost op: 02 maart 2019, 14:47:34 »
Ik wil de horizontale gegevens A1 tot H1 van sheet1 via een VBA transpose in een (verticale) kolom brengen van sheet2. Maar het wil niet lukken.

Of zijn er andere methodes om dit te verwezenlijken ?

Mvg
René
Gelogd
Windows 10
Excel 2013

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.280
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Transpose in VBA
« Reactie #1 Gepost op: 02 maart 2019, 16:58:06 »
Sheets(2).Range("A1:A8").value = application.transpose(Sheets(1).Range("A1:H1"))

Dit zou moeten werken. Wat heb jij precies geprobeerd?
Gelogd
______________________________

Groet, Leo

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: Transpose in VBA
« Reactie #2 Gepost op: 02 maart 2019, 19:31:05 »
@RedHead,

Je code werkt perfect !

ik had zoiets:
Code: [Selecteer]
Sheets(2).Range("F1:F8").Transpose (Sheets(1).Range("A1:H1"))
Blijkbaar had ik de help volledig mis verstaan... De help is toch niet altijd voldoende duidelijk... ofwel ben ik de slechte leerling...

Thanks !!
Gelogd
Windows 10
Excel 2013

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: Transpose in VBA
« Reactie #3 Gepost op: 03 maart 2019, 08:22:50 »
Aansluitend bij de toepassing van mijn initiële vraag:

Ik moet niet aaneensluitende kolommen verwijderen welke aangeduid werden met een keuzevakje.
Ik deed dit met een for-next loop maar natuurlijk schuiven de kolommen op en worden niet de juiste gewist.

In bijlage een vereenvoudigd voorbeeld.
Ik maak eerst een kopij van de originele kolommen en ga daar dan gaan wissen.
In mijn voorbeeld wil ik de kolommen "Naam" , "Ident" en "Adres" behouden.

Kan het panel mij daarbij helpen?
Gelogd
Windows 10
Excel 2013

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Transpose in VBA
« Reactie #4 Gepost op: 03 maart 2019, 09:43:22 »
Hallo,

Er zijn ook wat mogelijkheden te bedenken om de rest efficiënter te maken, maar in je vermoedelijk erg vereenvoudigde voorbeeld hou ik het liever bij deze eenvoudige oplossing.
Het lukt namelijk perfect met for-next; alleen moet je dan 'van achter naar voor' werken, dus:
vervang "For i = 1 To 7" door "For i = 7 To 1 Step -1"

Groeten,
pitufo
Gelogd
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: Transpose in VBA
« Reactie #5 Gepost op: 03 maart 2019, 10:39:35 »
@pitufo,

Prachtig, je oplossing werkt perfect. Bedankt !!

Ook altijd benieuwd naar efficiëntere oplossingen.

De eigenlijke opgave was:
Een gebruiker (zonder Excel-kennis) moet kunnen aanduiden welke van 15 kolommen hij wil behouden.
Gelogd
Windows 10
Excel 2013

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Transpose in VBA
« Reactie #6 Gepost op: 03 maart 2019, 11:55:59 »
Citaat
Ook altijd benieuwd naar efficiëntere oplossingen

Een Blad2-loze oplossing misschien ?
Hierbij een voorbeeld met een héél simplistisch formuliertje dat, mocht je er gebruik willen van maken, wat aanpassingswerk zal vragen voor je echte bestand. Maar ik denk dat je dat zelf wel voor elkaar krijgt (?)

Groeten,
pitufo
Gelogd
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: Transpose in VBA
« Reactie #7 Gepost op: 03 maart 2019, 12:44:50 »
@pitufo,

Wat een elegante oplossing !!
Dit ga ik zeker uittesten op mijn werkelijke toepassing ('t is toch regenachtig...)

Dank !

Mvg
René
Gelogd
Windows 10
Excel 2013

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.280
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Transpose in VBA
« Reactie #8 Gepost op: 03 maart 2019, 21:14:38 »
Nou, dan "speel" ik ook nog even mee. Hierbij een flexibele oplossing ter lering ende vermaek... :D
Gelogd
______________________________

Groet, Leo

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: Transpose in VBA
« Reactie #9 Gepost op: 03 maart 2019, 22:42:47 »
prachtig en dat op carnavals zondag
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com