2017-06-15 2 views
0

J'ai créé un Userform avec plusieurs feuilles de calcul avec des mois différents. Je peux seulement obtenir le formulaire pour fonctionner correctement pour "Sheet7 (Juillet)". Comment faire pour que le formulaire fonctionne sur toutes les feuilles du cahier de travail? Voici mon code pour le formulaire. MerciExcel VBA Userform

Private Sub CommandButton1_Click() 

'Range("A").Value = tbdaterec 
'Range("B").Value = tbdateres 
'Range("C").Value = cmblist.Value 
'Range("D").Value = tbstudent 
'Range("E").Value = tbdatesch 
'Range("F").Value = tbrequest 
'Range("G").Value = cmbsitelist.Value 

erow = Sheet7.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 


Cells(erow, 1).Value = tbdaterec.Text 
Cells(erow, 2).Value = tbdateres.Text 
Cells(erow, 3).Value = cmblist.Value 
Cells(erow, 4).Value = tbstudent.Text 
Cells(erow, 5).Value = tbdatesch.Text 
Cells(erow, 6).Value = tbrequest.Text 
Cells(erow, 7).Value = cmbsitelist.Value 
+0

Quand vous dites travailler pour chaque feuille, que voulez-vous dire exactement? Placez les mêmes informations à partir du formulaire utilisateur dans chaque feuille de votre classeur? –

+0

Lorsque je passe à une autre feuille et que j'essaie d'utiliser le formulaire sur cette feuille, cela ne fonctionne pas correctement, par exemple si je sélectionne "August", cela ne fonctionnera pas correctement comme pour "Sheet7". Donc, je me demande comment intégrer le formulaire pour travailler pour toutes les feuilles. @ Alex P – user1610965

Répondre

0

Dans votre code font ceci:

erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 

qui va se erow selon le feuille que vous êtes.

Cela aide-t-il?

+0

Oui c'est fait! Merci monsieur! @Alex P – user1610965