Userform data

[TJ86]

Hallo allemaal,

ik heb een userform welke ingevoerde data wegschrijft op een andere sheet in verschillende kolommen.
Dit heeft altijd prima gewerkt. De nieuwe data werd in de sheet "Database" toegevoegd op de eerst
volgende regel in de tabel.

Maar nu opeens wordt de nieuwe dataregel niet meer toegevoegd op de eerst volgende regel IN de tabel
maar juist ONDERAAN de tabel. Enig idee hoe dit kan en hoe ik dit weer goed krijg?

Dit is de code die ik gebruik om data toe te voegen aan het werkblad "Database":

Private Sub B_Toevoegen_Click()
    Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Database")
    iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    ws.Cells(iRow, 1).Resize(, 35) = Array(txt_Zoeknaam.Value, txt_Bedrijfsnaam.Value, txt_BezoekAdres.Value, txt_BezoekPostcode.Value, txt_BezoekPlaats.Value, txt_Postbus.Value, txt_PostbusPostcode.Value, txt_PostbusPlaats.Value, ddm_Land.Value, txt_TelefoonLand.Value, txt_TelNetnummer.Value, txt_TelAbonnee.Value, txt_FaxLand.Value, txt_FaxNetnummer.Value, txt_FaxAbonnee.Value, txt_EmailAlgemeen.Value, txt_Website.Value, txt_Achternaam.Value, txt_Voorletters.Value, txt_Voornaam.Value, ddm_Geslacht.Value, txt_CPTelLand.Value, txt_CPTelNetnummer.Value, txt_CPTelAbonnee.Value, txt_CPMobLand.Value, txt_CPMobNetnummer.Value, txt_CPMobAbonnee.Value, txt_EmailContact.Value, ddm_Taal.Value, txt_Datum.Value, ddm_Entiteit.Value, ddm_Medewerker.Value)
    txt_Zoeknaam = ""
    txt_Bedrijfsnaam = ""

enz.enz.

End Sub

Grtz
TJ

 

[Cobbe]

Staan er formules in je tabel en/of spaties in kolom A?

 

[TJ86]

Hi,

nee heb er niets aan veranderd. Het enige wat nog in de Macro staat is om op
kolom A alfabetisch te sorteren. Maar dit heeft ook een hele tijd gewerkt.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Range("A1").Sort Key1:=Range("A2"), _
          Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
    End If
End Sub

 

[Cobbe]

Ga eens met F8 door de code en check welke waarde iRow oplevert.

 

[edmoor]

Plaats anders je document hier, of een relevant voorbeeld ervan.

 

[Ginger]

Het wegschrijven van je gegevens levert een trigger op voor je sorteerprocedure omdat je die afhandelt via het Worksheet_Change event. Kan het toevallig zo zijn dat die laatst ingevulde waarde qua sortering helemaal onderaan van je tabel zou komen?

 

[gast0660]

Volgens mij is er toch iets veranderd in kolom A
Test deze eens
Verander

Dim ws As Worksheet
    Set ws = Worksheets("Database")
    iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

In

  iRow = Sheets("Database").Range("AF:AF").Find("*", _
    SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

(Als ik het goed heb is AF de laatste kolom waar data wordt ingevoerd)
En anders, zoals Edmoor al aangaf plaats eens een relevant vbtje