Invoer via Userforms

[ACER10]

Ik heb het volgende probleem....

Ik wil op eenzelfde sheet door middel van 2 verschillende userforms, gegevens in voeren in 2 verschillende kolommen.
Dat werkt, maar als ik in de eerste kolom bv 5 data heb staan ingevoerd via de 1ste userform en ik wil met het 2de userform in de andere kolom data invoeren dan komt deze data op de zelfde hoogte van de 1ste kolom....

Ik werk met with cells(rows.count,1).end(x1Up)
.offset (1,17)= Textbox4.value
Dus hier komt de data in kolom 17
voor kolom 2

en met with cells(rows.count,1).end(x1Up)
.offset (1,15)=combobox1.value
en hier komt de data in kolom 15
voor kolom 1


Is er een mogelijkheid om de tellers aan te passen zodat de kolommen juist worden ingevuld.

 

[Leotaxi]

Bv zo

Cells(Rows.Count, 18).End(x1Up).Offset(1) = TextBox4.Value
Cells(Rows.Count, 16).End(x1Up).Offset(1) = ComboBox1.Value

mvg
Leo

 

[ACER10]

Bv zo

Cells(Rows.Count, 18).End(x1Up).Offset(1) = TextBox4.Value
Cells(Rows.Count, 16).End(x1Up).Offset(1) = ComboBox1.Value

mvg
Leo

Beste Leo,

Ik geraak er maar niet....

ik laat hier de code na die ik origineel gebruik voor die handelingen.

voor userform 1

 Private Sub commandbutton1_click()

    With Cells(Rows.Count, 1).End(xlUp)

.Offset(1, 15) = ComboBox4.Value
.Offset(1, 0) = TextBox2.Value
.Offset(1, 2) = ComboBox1.Value
.Offset(1, 3) = ComboBox3.Value
.Offset(1, 5) = ComboBox2.Value

Run LeegFormulier1
    UserForm1.Hide

   End With
End Sub


Function LeegFormulier1()

'Start met een leeg formulier
 
    UserForm1.ComboBox1 = Empty
    UserForm1.ComboBox2 = Empty
    UserForm1.ComboBox3 = Empty
    UserForm1.ComboBox4 = Empty
    UserForm1.TextBox2 = ""



End Function


Private Sub UserForm_Click()

End Sub



[B][U]Voor userform 2[/U][/B]

Private Sub commandbutton2_click()


 'Krijg de laatste rij die is ingevuld + 1 is de 1ste lege rij
 
   
    With Cells(Rows.Count, 1).End(xlUp)

        .Offset(1, 17) = TextBox4.Value
        
            Run LeegFormulier
            UserForm2.Hide
            
    End With

End Sub

Function LeegFormulier()

    'Start met een leeg formulier
    UserForm2.TextBox4 = ""

End Function

Private Sub UserForm_Click()

End Sub

kan jij dit eventueel aanpassen ?

 

[snb]

Gebruik svp codetags rondom VBA code (lees bijv. ook eens de forumregels).

 

[ACER10]

Sorry , ik was dit vergeten.... is aangepast.

 

[Leotaxi]

best een bestandje bijvoegen

mvg
Leo

 

[ACER10]

Ok, ik heb een afgeslankt voorbeeld hier bij.

Bekijk bijlage voorbeeld.xls


Ik heb enkele pijltjes gezet waar wat dient te komen....

Alvast bedankt.

Ed

 

[Jack Nouws]

Zo worden de rijen in kolom Q geteld

Cells(Rows.Count, [COLOR=#0000cd]17[/COLOR]).End(xlUp)

of....

Cells(Rows.Count, "[COLOR=#0000cd]Q[/COLOR]").End(xlUp)

en zo eronder geplaatst

Cells(Rows.Count, 17).End(xlUp).Offset(1)

 

[ACER10]

Mooi Jack, alles werkt prima nu...
Bedankt hoor.
En ik heb weer wat bijgeleerd.

Ed:d