iemand tijd om dit af te maken ?

[udo1967]

To be correct the Ranges are :

D9:X31
D45:X58
D82:X93

Codes are: T 1 till T31 and G 1 till G 31

What would be the correct line in VBA ?




> Well, you could use VBA to put a space character in the cell to the
> right...
>
> Range("G2:G" & Range("A" & Rows.Count).End( _
> xlUp).Row).FormulaR1C1 = " "
>
>
> In article <12021$42d3ef90$546b00f2$31371@news.multikabel.nl>,
> "Roby" <r.udo@quicknet.nl> wrote:
>
>> Isn't there an other option, VBA ?
>>
>>
>> > Put a space character in the cell to the right.
>> >
>> > In article <2baaf$42d3d223$546b00f2$28902@news.multikabel.nl>,
>> > "Roby" <r.udo@quicknet.nl> wrote:
>> >
>> >> Have a Sheet with codes :
>> >>
>> >> A B C D C
>> >> 1 T G G G 12
>> >> 2 G G G T 11
>> >> 3 G G T T 23
>> >>
>> >> (each Cell is 16x16 pixels)
>> >> The G's and T's are codes (Format as "T 12"
>> >> (Letter-Space-Space-Number))
>> >> The Number part should be hidden under the next Cell but in each line
>> >> the
>> >> last
>> >> Cell it is above this Cell.
>> >>
>> >> Want it to be like this :
>> >>
>> >> A B C D C
>> >> 1 T G G G
>> >> 2 G G G T
>> >> 3 G G T T
>> >>

 

[fihod]

dit is toch een Nederlandstalig forum

 

[Withaar]

Misschien een wat vreemde oplossing, weet ook niet het bruikbaar is, maar je zou de cijfers allemaal (of in iedergeval van de laatste kolom) met de kleur wit kunnen intypen, op een witte achtergrond zie je ze dan niet staan.

 

[udo1967]

Geplaatst door Withaar
Misschien een wat vreemde oplossing, weet ook niet het bruikbaar is, maar je zou de cijfers allemaal (of in iedergeval van de laatste kolom) met de kleur wit kunnen intypen, op een witte achtergrond zie je ze dan niet staan.

Er zijn al verschillende oplossing geboden maar moet deze allemaal handmatig invoeren. Aangezien er aardig wwat velden zijn is dat "dom werk" en zou een macro of VBA onder een button de oplossing zijn.

 

[Withaar]

Oke, maar is wit maken een optie?

Zo'n macro maak ik ook niet zo maar even.

[Edit] Ik zie net dat Jan al met een soort gelijke oplossing kwam. Hier
Het is handiger steeds door te gaan in de zelfde vraag.

Als ik goed zie gaat het telkens om de range AB9 t/m AB20 op elk tabblad.
Beginnen al deze tabbladen met het woord Week?

Voor wie zich afvraagt, waar gaat dit over, e.a. heeft te maken met deze vraag

 

[udo1967]

Die Laatste vraag is inmiddels naar tevredenheid opgelost.
Alleen heeft dat weer een vraag opgeleverd.

De range in de 51 werkbladen zijn :
D9:X31
D45:X58
D82:X93

Het cijfer WIT maken, een spatie in de cel of ander vreemd teken....
Het maakt me niet uit als er maar een mogelijk komt onder een button die automatisch verloopt.

Van mij part eerst een range trekken met de muis en dan de macro er overheen laten gaan oid. Als het maar werkt.

 

[Withaar]

Wit maken is geen oplossing.

Hier een macro voor alleen het op dat moment actieve tabblad.

Sub letterkleur()
'
For t = 9 To 20
Cells(t, 28).Select
Selection.CurrentRegion.Cells.Font.ColorIndex = 2
Selection.CurrentRegion.Cells.Characters(Start:=1, Length:=1).Font.ColorIndex = xlAutomatic
Next t
End Sub

De tekst verdwijnt wel, maar de layout gaan naar de knoppen.... de || is niet meer zichtbaar...

Een spatie lijkt wel goed te werken.
Automatisch een spatie in de velden Y9 t/m Y31, Y45 t/m Y58 en Y82 t/m Y93 op elke tabblad zou dus voldoende moeten zijn als macro?

Kan je één voorbeeld tabblad even hier neerzetten?

 

[Withaar]

Spatie zetten in de Y kolom;

Sub zetspatie()
'
Dim i As Integer
Dim t As Integer
'
'Voer uit op tabblad 1 t/m 51, als het instellingen blad vooraan staat, dus blad 1 is
'moet je hier For i = 2 to 52 van maken
'
For i = 1 To 3
Worksheets(i).Select
'
' waarde 25 staat voor kolom Y
For t = 9 To 31
Cells(t, 25).Value = " "
Next t
'
For t = 45 To 58
Cells(t, 25).Value = " "
Next t
'
For t = 82 To 93
Cells(t, 25).Value = " "
Next t
'
Next i
End Sub

 

[Hans123]

Dit kan ook op de volgende manier:

Zet je werkbladen in groep door je eerste werkblad te kiezen,en dan met shift ingedrukt op het tabje te klikken van je laatste werkblad. Alle tabs worden nu wit.

selecteer nu je range waar je een spatie wil zetten en druk op F2 (=edit). plaats nu je spatie (of welk teken je wilt) en druk dan op ctrl+shift+enter. Als het goed is zal het teken nu in je hele geselcteerde range ingevuld zijn op alle bladen.