Gegevens userform wegschrijven in een kolom ipv op eerste lege rij

[davylenders123]

Ik heb al wel verschillende user form gemaakt maar telkens moesten de gegevens worden weggeschreven op de eerst volgende leeg rij .
Hier heb ik de volgende code voor , en deze kan ik ook wel wijzigen voor en ander user form die ook op eerst volgende lege rij moet wegschrijven.

Private Sub cmmndToevoegen_Click()
  Dim ar(1 To 6)
  For Each fr In Me.Controls
    If TypeName(fr) = "Frame" Then
      For Each ob In fr.Controls
        If TypeName(ob) = "OptionButton" Then
          If ob Then
            ar(fr.Tag) = ob.Caption
            Exit For
          End If
        End If
      Next ob
    End If
  Next fr
  ar(1) = txtWerknemer
  ar(5) = Format(LblDatum, "mm-dd-yy")
  ar(6) = "=A1-[@Uitgiftendatum]"
  'ar(6) = frDepot
  With Sheets("Postnl MP label").ListObjects(1)
    ar1 = .HeaderRowRange
    For j = 1 To UBound(ar)
      If ar(j) = "" Then
        MsgBox ar1(1, j) & " is niet gekozen/ingevuld"
        Exit Sub
      End If
    Next j
    .ListRows.Add.Range.Resize(, 6) = ar
  End With

    
    If MsgBox("Opdracht verwerkt, nog een opdracht", vbYesNo, "Nieuwe invoer") = vbYes Then
    For Each ct In Me.Controls
      If TypeName(ct) = "OptionButton" Then ct.Value = 0
      If TypeName(ct) = "TextBox" Then ct.Value = ""
     
    Next ct
   Else
    Unload Me
  End If
  
End Sub

Maar nu zouden de gegevens altijd in dezelfde cellen moeten worden weggeschreven, en de gegevens die reeds in de cellen staan overschreven worden.
De plaats waar de gegevens naar weg geschreven zou moeten worden is
Kolom W in de volgende cellen W5:W25 en W26 blijft leeg en vanaf W27:W32
Maar heb geen idee hoe ik dat kan doen

Heb blijkbaar verkeerde bestand gepost met te veel tabbladen in het gaat over het tabblad MP label.
PS is het eigenlijk mogelijk om een geplaatst bestand in een bericht van u eigen nog te verwijderen en te wijzigen in een ander ?

 

[HSV]

Geef de textboxes een simpele naam.
Bv: tb1, tb2, tb3, enz.

Private Sub cmmndToevoegen_Click()
 range("w5:w32") = application.transpose(array(tb1,tb2,tb3,enz,, tb19,tb20,"",tb23,tb24,tb25,tb26,tb27))
end sub

Op de plek van W26 zet je dan een dubbele quote zoals aangegeven in bovenstaande code

 

[davylenders123]

HSV

Bedankt voor je snelle reactie.

Maar geraak er nog niet uit.
Bij id 16 wat een label is dat de datum automatisch invult en bij id 23 waar je een keuzen moet maken geraak ik niet uit.

Voor ID 16 de datum krijg ik als uitkomst label11 , wat de datum zou moeten zijn.
En ID 23 en 45 krijg als uitkomst #N/B

Ik kan ook maar tot TXT 22 toevoegen , als ik TXT 23 toevoeg krijg ik een foutmelding.

Je zal zien dat ik ook wat gewijzigd heb , de lege rij 26 is er niet meer , heb het wat herschikt omdat ik de code eerst helemaal niet werkende kreeg.
Nu ben ik al ergens geraakt maar het laatste stukje lukt me niet.

 

[HSV]

TXT22 is een Frame Object; die heeft geen Value,
Die heeft bv. wel een Tag.

Kijk daar eerst eens naar wat de bedoeling is.

 

[davylenders123]

Heb hem ondertussen werkende gekregen , maar heb id 23 voorlopig vervangen door een tekstbox en dan werkt het, ook de datum.

Maar zou nu voor id23 nog opnieuw een keuzen lijst willen invoegen.

 

[HSV]

Keuzenlijst = Combobox

 

[davylenders123]

HSV

Maar hoe kan ik de gegevens van de combobox in cel W 23 terecht laten komen.
Heb al wat gegoogeld maar geraak er niet uit.

In de code heb ik nu nog TXT22 staan , maar als ik dit wijzig in CB22 om de combobox aan te roepen werkt het niet.
Het zal er aan liggen dat je de gegevens van een textbox op een andere manier aanroept en wegschrijft dan een combobox , maar dat is juist wat ik niet weet.

 

[HSV]

Er staat ook geen Combobox op je formulier.

 

[davylenders123]

Inderdaad sorry , het is een groepsvak met keuzen rondjes dat ik daar gebruikt heb.
Ja was van een userform vertrokken die ik al in gebruik had en niet goed gekeken.

Dan ben ik opzoek om het groepsvak in te voegen.

Heb net een combobox met keuzen lijst toegevoegd en deze werkt wel.
Maar wil het met een groepsvak doen omdat ik bij de codes dan de landen kan bij vermelden via een bijschrif in het groepsvak.

 

[HSV]

Bv.

Er van uitgaande dat de naam van de Frame nog steeds CB22 is.
In de initialize maak je de Tag leeg met...

CB22.Tag = ""

Private Sub obMutssjaal_Click()
 CB22.Tag = obMutssjaal.Caption
End Sub

Private Sub OptionButton2_Click()
 CB22.Tag = OptionButton2.Caption
End Sub

Private Sub OptionButton1_Click()
CB22.Tag = OptionButton1.Caption
End Sub

In de array voeg je cb22.tag toe.

 

[davylenders123]

HSV

Bedankt voor je oplossing :thumb:
Met deze ben ik eruit gekomen.