Multidesk.be » Forums » Programmeren algemeen » Selection.End(xlDown).Select (gesloten)

Helpinformatie
Dit onderwerp werd gesloten.
Het is bijgevolg niet mogelijk er nog op te reageren.
  • Pagina
  • 1 van 1
  • RSS
  • Eerste ongelezen reactie
  • Plaats een reactie
  • Abonneer mij
  • Onderwerp sluiten
0 gasten lezen dit onderwerp.
^ Onderwerp geschreven door Gast_1557 op maandag 21 mei 2007 om 14:06:05.
Gast_1557 heeft nog geen avatar toegevoegd
Multiviteit: 560
Get Low
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
Hoi allemaal mijn functie werkt niet zo als ik het wil , code is wel goed [codeSelection.End(xlDown).Select[/code] maar hij gaat laatste rij van het werkblad pakken als ik op toevoegen klik,

hier is mijn volledige code weet iemand misschien waarom.
CODE
  1.  
  2. Private Sub ButtonOk_Click()
  3.  
  4. ' Declaraties
  5.     Dim Van As String
  6.     Dim Naar As String
  7.     Dim Datum As String
  8.     Dim Kilometers As String
  9.     Dim Prijs As String
  10.     Dim Kosten As String
  11.     Dim Boekingscode As String
  12.     Dim Toelichting As String
  13.    
  14. ' Toekenning van Declaraties
  15.     Van = TxtVan.Text
  16.     Naar = TxtNaar.Text
  17.     Datum = TxtDatum.Text
  18.     Kilometers = TxtKilometers.Text
  19.     Prijs = Txtprijs.Text
  20.     Kosten = Txtkosten.Text
  21.     Boekingscode = TxtBoekingscode.Text
  22.     Toelichting = TxtToelichting.Text
  23.  
  24.     ' Reistoevoeging
  25.     Range("B16").Select ' Beginpunt
  26.     --------------------------------Hier gaat het mis
  27.     Selection.End(xlDown).Select ' Een Cell beneden pakken
  28.     ---------------------------------
  29.     ActiveCell.FormulaR1C1 = Van 'Van
  30.     Selection.Offset(0, 1).Select '1 Opzij naar Rechts
  31.    
  32.     ActiveCell.FormulaR1C1 = Naar 'Naar
  33.     Selection.Offset(0, 1).Select '1 Opzij naar Rechts
  34.     ActiveCell.FormulaR1C1 = Datum 'Datum
  35.     Selection.Offset(0, 1).Select '1 Opzij naar Rechts
  36.     ActiveCell.FormulaR1C1 = Toelichting
  37.     Selection.Offset(0, 1).Select '1 Opzij naar Rechts
  38.     ActiveCell.FormulaR1C1 = Kilometers
  39.  
  40.     Selection.Offset(0, 3).Select
  41.     ActiveCell.FormulaR1C1 = Prijs
  42.     Selection.Offset(0, 1).Select
  43.     ActiveCell.FormulaR1C1 = Kosten
  44.  
  45.     Selection.Offset(0, 2).Select
  46.     ActiveCell.FormulaR1C1 = Boekingscode
  47.    
  48.     Range("B25").Select
  49.        
  50.     ' Werkblad opnieuw activeren
  51.     Sheets("Declaratieformulier2006").Select
  52.        
  53. End Sub
  54. Private Sub ButtonSluiten_Click()
  55.  
  56. ' Formulier afsluiten
  57.     Unload Me
  58.  
  59. End Sub
  60.  
  61. Private Sub UserForm_Click()
  62.  
  63. End Sub
  64.  


Als ik zeg maar op reistoevoegen klik dan moet ie de gegeven in excel werkblad sheet invullen dat gebeurt ook, maar als ik volgende gegeven erin wil vullen dan moet ie een rij onder pakken alleen dat gebeurt niet hij pakt zeg maar de laatste rij, weet iemand misschien wat ik fout heb gedaan?
^ Reactie #1 geschreven door thekid op dinsdag 15 november 2011 om 19:48:14.
thekid's avatar
Multiviteit: 5273
Moderator
  • Bewerken
  • Citeren
  • Reageren
  • Verwijderen
  • Waarschuw een crewlid
ge doet een selection jump naar het einde maar je hebt slechts 1 cell geselecteerd, ik zou dan vermoeden dat je selectie je ganse pagina is en dan gewoon naar de laatste rij springen

dusja, ge zult beter moeten overdenken hoe je de volgende lege rij kan selecteren ;)

Opmerking van de crew

Ik denk dat de TS na 4,5 jaar wel uitgeteld is :D
Dus maar een (lock)

Wheeldigger
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
  • Pagina
  • 1 van 1
  • RSS
  • Eerste ongelezen reactie
  • Plaats een reactie
  • Abonneer mij
  • Onderwerp sluiten