Samenvoegen tekst verschillende cellen bij gebruik invulformulier.

[plainme]

Beste Amici,

Vooreerst aan alle een spetterend berekend maar vooral een gezond gelukkig 2017.

Dan nu de vraag

Kan er bij gebruik van een invulformulier cellen worden samengevoegd. De samen te voegen cellen krijgen hun waarde adhv een invulformulier.

Dan het tweede luik v/d vraag. Kan er een popup - schermpje aangemaakt worden binnen het invulformulier dat te voorschijn komt bij het indrukken van de knop opslaan of dat er een knop eenvoudig wordt bij gemaakt die meerdere ingave mogelijk maakt.

Hierbij bestandje ( maakt ook al veel duidelijk denk ik )

Bekijk bijlage Invulform HM vraag.xlsm


Alvast iedereen bedankt

 

[HSV]

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = Array(TextBox1.Value, TextBox2.Value, ComboBox1.Value, TextBox5.Value & " " & ComboBox2.Value, TextBox4.Value)
  If MsgBox("nog meer?", vbYesNo) = vbYes Then
    TextBox1 = ""
    TextBox2 = ""
    TextBox4 = ""
    TextBox5 = ""
    ComboBox1.ListIndex = -1
    ComboBox2.ListIndex = -1
  Else
    Unload Me
 End If
Application.ScreenUpdating = True
End Sub

 

[plainme]

Beste Harry,

Bedankt voor deze snelle reactie, maar ik denk dat er iets fout gaat.
De data wordt in de verkeerde kolom geplaatst.
De data in kolom D dient de eenheid te blijven
Daarentegen dient de data in kolom E aangevuld te worden met de data uit kolom D
Nu plaatst men alles in kolom D
graag uw advies

Alvast bedankt

 

[HSV]

Beter?

Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6) = Array(TextBox1.Value, TextBox2.Value, ComboBox1.Value, ComboBox2.Value, TextBox5.Value & " " & ComboBox2.Value, TextBox4.Value)

 

[plainme]

beste Harry,

niet echt. Nu heb ik dit bij de berekening
VH m² 1500 m² € 3,00 #WAARDE!

 

[HSV]

With Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp)
  .Offset(1).Resize(, 6) = Array(TextBox1.Value, TextBox2.Value, ComboBox1.Value, ComboBox2.Value, TextBox5.Value, TextBox4.Value)
  .Offset(1, 4).NumberFormat = "#.00 """ & ComboBox2.Text & """"
End With

 

[plainme]

Beste Harry,

Dit is hem volledig.
Een ferme bedankt

Met vriendelijke groet