Invullijst

[EWOL]

Ik heb een probleem bij het schrijven van een programma in VISUAL Basic.

Ik wil op een spreadsheet in excel met een knop Cel C5 invullen
met de hoofdletter A met als start Cel C5 en met een nieuwe druk op de knop de eerst volgende lege cel ( C6 ). De cellen die ingevuld moeten worden lopen van C5 T/M C50.
Knoppen aanmaken is voor mij geen probleem.

Kan iemand mij svp helpen in het schrijven van dit programmatje.

Groeten EWOL

 

[HSV]

Sub tst()
 Sheets("blad1").Range("C4").CurrentRegion.Offset(1) = "A"
End Sub

 

[EWOL]

Hallo Harry ,

Alvast bedankt , het functioneerd.
Maar ik heb iets vergeten te vertellen nl dat ik in die kolom meer letters wil plaatsen op de eerst volgende lege cel met 12 aparte knoppen.( knop 1 A , Knop 2 B , Knop 3 C etc )
nl A T/M L. Dus in de kolom kan komen te staan A A A B A C etc.

Heb jij hiervoor een oplossing

Groeten EWOL

 

[HSV]

Dan kun je de code twaalf keer kopiëren.
De code een ander naam geven, en de letter A veranderen.

Of één knop en de letter in een cel zetten, en de code naar die cel verwijzen.

 

[EWOL]

Hallo Harry ,

Dit had ik reeds gedaan , maar hij overschrijft alle eerdere cellen met de letter die
ik als laatst met de knop gedrukt heb.
De bedoeling is dat de eerdere cellen met de ingevulde letter blijft staan.
Ik heb dit ook geprobeerd met If Then Else , maar dit lukt mij nog niet.

Heb jij hiervoor een oplossing

Groeten EWOL

 

[HSV]

Mijn excuses.

Hier heb ik voor twee letters een code.

Sub tstA()
 With Sheets("Blad1")
    If .Cells(5, 3) > 0 Then
       .Cells(50, 3).End(xlUp).Offset(1) = "A"
 Else
       .Cells(5, 3) = "A"
    End If
  End With
End Sub

Sub tstB()
 With Sheets("Blad1")
    If .Cells(5, 3) > 0 Then
      .Cells(50, 3).End(xlUp).Offset(1) = "B"
 Else
      .Cells(5, 3) = "B"
    End If
  End With
End Sub

Of:

Sub tstA()
 With Sheets("blad1")
   .Cells(.Range("C4").CurrentRegion.Rows.Count + 4, 3) = "A"
 End With
End Sub

Sub tstB()
 With Sheets("blad1")
   .Cells(.Range("C4").CurrentRegion.Rows.Count + 4, 3) = "B"
 End With
End Sub

 

[EWOL]

Hallo Harry,

hartelijk bedankt , alles functioneerd zoals het moet.


Groeten EWOL