Auteur Topic: een lege cel tussen andere ingevulde cellen (gelezen 3394 keer)

ceasar · « **Gepost op:** 21 september 2006, 19:42:40 »

beste oplossers,

ik wil een schoonheid van een macro lanceren, maar heb nog een probleemke.

als je de macro laat lopen, dan print die cijfers af, geschikt voor labels in te vullen.

ik had graag hetvolgende verkregen:

tussen het derde cijfer en het vierde een blanco cel,

tussen het zesde en zevende cijfer een blanco cel,

en tussen het tiende en elfde cijfer terug een blanco cel

kunnen jullie me helpen?

groeten

JC

WG · « **Reactie #1 Gepost op:** 21 september 2006, 23:00:56 »

JC

aan jouw macro was nog wel wat werk vrees ik...

Test dit al eens uit:

Sub labelswigi()
Dim lngRow As Long, aantRows As Long
aantRows = Sheets("ckz").Range("A1").End(xlDown).Row
For lngRow = 1 To aantRows
Sheets("druk").Range("A" & lngRow) = CStr(Left(Sheets("ckz").Range("A" & lngRow), 3))
Sheets("druk").Range("C" & lngRow) = CStr(Mid(Sheets("ckz").Range("A" & lngRow), 4, 3))
Sheets("druk").Range("E" & lngRow) = CStr(Mid(Sheets("ckz").Range("A" & lngRow), 7, 4))
Sheets("druk").Range("G" & lngRow) = CStr(Right(Sheets("ckz").Range("A" & lngRow), 1))
Next
End Sub

en doe dan zelf nog het printen.

Wigi

SoftAid · « **Reactie #2 Gepost op:** 22 september 2006, 00:03:55 »

Sorry, even de puntjes op de i zetten

~~Sheets("druk").Range("G" & lngRow) = CStr(Right(Sheets("ckz").Range("A" & lngRow), 1))~~

Sheets("druk").Range("G" & lngRow) = CStr(Right(Sheets("ckz").Range("A" & lngRow), 2))

SoftAid

WG · « **Reactie #3 Gepost op:** 22 september 2006, 09:09:02 »

Jep, merci.

Tot 12 tellen is soms moeilijk voor mij ...

SoftAid · « **Reactie #4 Gepost op:** 22 september 2006, 11:11:38 »

Citaat van: WG op 22 september 2006, 09:09:02

Tot 12 tellen is soms moeilijk voor mij ...

Ik geloof je op je woord

SoftAid

ceasar · « **Reactie #5 Gepost op:** 22 september 2006, 13:15:51 »

beste wg en alziend oog Softaid,

als je de macro op het bestand doet lopen, zie je de cijfers op hun kop gedraaid?

wel tussen de derde kolom en de vierde kolom wil ik een lege kolom krijgen, en dat is een beetje mijn probleem.

de code wg werkt perfect, die kan ik zeker gebruiken.

moet ik dan tellen tot 14 ?

groeten

JC

WG · « **Reactie #6 Gepost op:** 22 september 2006, 13:20:58 »

Citaat van: ceasar op 22 september 2006, 13:15:51

als je de macro op het bestand doet lopen, zie je de cijfers op hun kop gedraaid?

Dat komt door hoe jij die cellen hebt opgemaakt. Verander de uitlijning en je moet je niet meer in bochten wringen om het te kunnen lezen.

Ook lettergrootte mag waarschijnlijk wel wat kleiner.

Wigi

WG · « **Reactie #7 Gepost op:** 22 september 2006, 13:22:08 »

Citaat van: ceasar op 22 september 2006, 13:15:51

moet ik dan tellen tot 14 ?

Zover ben ik nog nooit geraakt, maar als je het eens wil proberen wens ik je alle succes toe.

ceasar · « **Reactie #8 Gepost op:** 22 september 2006, 13:26:04 »

grapje natuurlijk wg

maar de omgekeerde cijfers dienen om labels in te vullen die dan recht in een hangmap terecht kan

zo zie je maar,

wat een dymo zelf doet, doet hier excell het werk.

bye
JC

Help!

Menu

Hulp bij posten

Zoeken

Recente topics