Cel mag niet leeg voor naar andere cel

[Schipperjte]

Hallo ,

Ik zoek iets dat je een cel moet invullen voor ik naar de volgende cel mag.

Valideren ? maar soms staat er een cijfer of een tekst , kan ook een - of + zijn

Maar een spatie mag wel .


Om een verhaal kort te maken , er moet iets in de cel staan of spatie voor ik naar de volgende mag.

Het zijn de cellen H3 tot en met H26

Eigenlijk iets met een waarschuwing , cel mag niet leeg zijn !


Bas

 

[Schipperjte]

Zoek eigenlijk zoiets als dit , maar dan in de kolom H

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(ActiveCell.Row, 1).Value = "" Then
MsgBox "Vul eerst een waarde in bij kolom 1 van deze regel"
End If
End Sub

 

[popipipo]

Via data validatie ben ik tot deze oplossing gekomen.

 

[Schipperjte]

Ja dat bedoel ik .

Is het ook mogelijk de cellen van H3 to H26 te selecteren ? of moet ik elke cel apart doen.

heb het geprobeerd van H 3 tot H26 maar krijg een fout melding

 

[popipipo]

Je kunt de cellen gewoon kopiëren.

 

[HSV]

Je kan toch doorvoeren vanaf H4 Willem?

 

[popipipo]

Doorvoeren kan natuurlijk ook
Want doorvoeren vind ik een snelle manier om iets te kopiëren

 

[Schipperjte]

Het is gelukt alle cellen door tevoeren. Maar kwam gelijk een ander probleem tegen.

Had een macro opgenomen die alle cellen leeg maakt met een spatie.
Maar als de cellen met een spatie zijn kan ik ergens halver wege beginnen met invullen en cellen overslaan.
Dat was eigenlijk niet de bedoeling.

Beginnen in H3 dan stap voor stap naar H26

Als ik een macro opneem met de cellen leegmaken met backspace dan geeft hij natuurlijk die melding eerst wat invullen voor hij alles leeg maakt.
Kan niet elke keer met een nieuwe sheet beginnen.Deze leeg en dan weer opnieuw.


Iemand een idee ?

 

[popipipo]

Had een macro opgenomen die alle cellen leeg maakt met een spatie.

Maak de cellen dan echt leeg dus niet met een spatie.

 

[HSV]

Zoiets dan.
Je moet meer dan 4 lege spaties zetten alvorens akkoord.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Range("H3:H27"), Target) Is Nothing Then
   If Selection.Cells.Count > 1 Then
     MsgBox "Je mag niet meerdere cellen selecteren", _
     vbOKOnly + vbInformation
    Range("H65536").End(xlUp).Offset(1).Select
   Exit Sub
 End If
Select Case Target.Offset(-1).Value
    Case Is = "", " ", "  ", "    "
            MsgBox "Cel " & Range("H65536").End(xlUp).Offset(1).Address & " mag niet leeg zijn"
          Target.Offset(-1).ClearContents
       Range("H65536").End(xlUp).Offset(1).Select
    End Select
  End If
End Sub

En uitsluiting van selectie van meerdere cellen in range.

 

[zapatr]

Probeer in H3:H26 wel/niet wat in tevullen en
kijk of deze simpele methode voldoet.

 

[Schipperjte]

Beste Harry dat is wat ik bedoel

Als ik nu wat cellen wil bijvoegen , bv G33 tot G38 en bv H12 tot H16 om zo maar wat op te noemen
Hoe zet ik dat er dan in ?

De lijst langer maken in niet moeilijk bv H27 veranderen in H44 ,maar dan maakt hij de cellen niet leeg

Dat heeft natuurlijk te maken met de range


Maar is precies wat ik zoek , als ik de cellen kan bijvoegen en dan ook leeg maken ben ik aardig op weg denk ik .

 

[HSV]

Zoiets naamgenoot (Schipper) ?

De cellen leegmaken staat in de module.
De code aangepast achter het blad zelf.

 

[Schipperjte]

Nou bijna ,ik ben een schippper


Heb wat cellen bijgevoegd en de module aangepast ,maar iets zit er niet goed .

Wel de spatie ingekort maar dat is niet het probleem .

Als ik ergens in de lijst bv S12 begin en ik vul niets in krijg ik een foutmelding en gaat hij ergens anders naar toe .
Dat is niet de bedoeling , je moet de cellen vanaf H3 invullen men mag niet ergens halverwege beginnen .

Heb de sheet als bijlage gedaan.Misschien is het maar een kleinigheidje .

Het wissen gaat goed

 

[HSV]

Schipper van een schip had ik niet aan gedacht.

Je bedoeld dat je moet beginnen in H3 en dan door tot H42, en dan pas naar S12 enz.?
Overigens krijg ik geen foutmelding.

Waarom staan er spaties in de tussenliggende witte cellen?

Ik hoor het wel wat de bedoeling is.

 

[Schipperjte]

Hmm inderdaad heb de spaties weg gehaald met backspace dan gaat het eerste stuk goed .

Met een nieuwe lege sheet klik ik op H16 om te beginnen invullen dan geeft hij een melding (zoals het hoort) en gaat hij naar H3 zoals bedoeld
want daar is het begin

maar als ik in S23 wil beginnnen geeft hij de melding zoals het hoort ,maar dan gaat hij naar S12 .

De bedoeling is dat hij naar H3 gaat het begin .

Klinkt misschien raar maar moest de tekst weg halen ,met tekst ziet het er heel logisch uit dat je in H3 moet beginnen en niet halverwege .

Heb op het voorbeeld er naast gezet waar beginnen en eind

 

[HSV]

Zoiets?

info:
verander dit stukje: Union([S33], [S34], [S35]) = ""
Application.Goto [S36]

in: Union([S33], [S34], [S35]) = " "
Application.Goto [S36]

 

[Schipperjte]

Het werkt perfect precies zo als ik wou , alleen als ik een fout maak dan kan ik geen cel selecteren die ik al ingevuld heb
om de type fout te corrigeren .

 

[HSV]

Even dubbelklikken.

 

[Schipperjte]

Dat had ik al geprobeerd , maar dat wil hij niet .

Hij gaat steeds naar de volgende lege cel en niet meer naar boven.