Fejl Run-time error '1004' Application-defined or object-difine

Du mangler at definere variablen  i

Jeg har prøvet at sætte
Dim i

ind
mvh

mvhansen

ja det er selvfølgelig en start... men  i    skal jo også have en værdi...

Hej flemmingdahl

Jeg forstår ikke lig hvor du vil sætte variablen  i  ind
jeg har taget en kopi af userformen der står det samme i som den jeg har taget en kopi af og den virker

mvh

mvhansen

Hej flemmingdahl
Jeg skriver som en sprog spasser


Jeg forstår ikke lig hvor du vil sætte variablen  i  ind
jeg har taget en kopi af en userformen og kopi den over i en anden excelfil
der står det samme i begge to men den ene virker ikke

mvhansen

Jeg har et modul hvor der er sat denne kode i

Public i as long


mvh

mvhansen

i hvilken linie får du fejlen?

.Cells(i, 1).Value = ""

Her er hele koden der er på userform

Option Explicit

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Medlemmer")

'find  første tomme row i database'
iRow = ws.Cells(ws.Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'check for  part nummer'
If Trim(Me.txtPart.Value) = "" Then
  Me.txtPart.SetFocus
  MsgBox "Indtast et id nr"
  Exit Sub
End If

'copy de data til database'
ws.Cells(iRow, 1).Value = Me.txtPart.Value
ws.Cells(iRow, 2).Value = Me.txtNavn.Value
ws.Cells(iRow, 3).Value = Me.txtEfternavn.Value
ws.Cells(iRow, 4).Value = Me.txtAdresse.Value
ws.Cells(iRow, 5).Value = Me.txtPostnr.Value
ws.Cells(iRow, 6).Value = Me.txtBy.Value
ws.Cells(iRow, 7).Value = Me.txtCprnr.Value
ws.Cells(iRow, 8).Value = Me.txtMailAdresse.Value

'clear textboxe data'
Me.txtPart.Value = ""
Me.txtNavn.Value = ""
Me.txtEfternavn.Value = ""
Me.txtAdresse.Value = ""
Me.txtPostnr.Value = ""
Me.txtBy.Value = ""
Me.txtCprnr.Value = ""
Me.txtMailAdresse.Value = ""
Me.txtPart.SetFocus

End Sub



Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub CommandButton1_Click()
Liste_medlemmer.Show
End Sub



Private Sub CommandButton2_Click()
Dim o As Long
Dim tb As String
Dim i
txtPart.Text = ""
txtNavn.Text = ""
txtEfternavn.Text = ""
txtAdresse.Text = ""
txtPostnr.Text = ""
txtBy.Text = ""
txtCprnr.Text = ""
txtMailAdresse.Text = ""

With Sheets("Medlemmer")

o = .Range("A65000").End(xlUp).Row
tb = TextBox1.Text
    For i = 2 To o + 1
        If LCase(.Cells(i, 1).Value) = LCase(tb) Then
            txtPart.Text = .Cells(i, 1).Value
            txtNavn.Text = .Cells(i, 2).Value
            txtEfternavn.Text = .Cells(i, 3).Value
            txtAdresse.Text = .Cells(i, 4).Value
            txtPostnr.Text = .Cells(i, 5).Value
            txtBy.Text = .Cells(i, 6).Value
            txtCprnr.Text = .Cells(i, 7).Value
            txtMailAdresse.Text = .Cells(i, 8).Value
            Exit For
        Else: If i = o Then MsgBox ("Ingen fundet")
        End If
    Next i

End With

       
End Sub

Private Sub CommandButton3_Click()
With Sheets("Medlemmer")

.Cells(i, 1).Value = txtPart.Text
.Cells(i, 2).Value = txtNavn.Text
.Cells(i, 3).Value = txtEfternavn.Text
.Cells(i, 4).Value = txtAdresse.Text
.Cells(i, 5).Value = txtPostnr.Text
.Cells(i, 6).Value = txtBy.Text
.Cells(i, 7).Value = txtCprnr.Text
.Cells(i, 8).Value = txtMailAdresse.Text
End With
End Sub

Private Sub CommandButton4_Click()
Dim Cancel As Boolean
Dim a

a = MsgBox("Du er ved at slette vil du det ", vbYesNo)

With Sheets("Medlemmer")
    If a = vbNo Then
        Cancel = True
    Else
        .Cells(i, 1).Value = ""
        .Cells(i, 2).Value = ""
        .Cells(i, 3).Value = ""
        .Cells(i, 4).Value = ""
        .Cells(i, 5).Value = ""
        .Cells(i, 6).Value = ""
        .Cells(i, 7).Value = ""
        .Cells(i, 8).Value = ""
        .Cells(i, 9).Value = ""
    End If
End With
End Sub

Private Sub CommandButton5_Click()
'clear textboxe for data'
  txtPart.Value = ""
  txtNavn.Value = ""
  txtEfternavn.Value = ""
  txtAdresse.Value = ""
  txtPostnr.Value = ""
  txtBy.Value = ""
  txtCprnr.Value = ""
  txtMailAdresse.Value = ""
  TextBox1.Value = ""
End Sub

Private Sub Label10_Click()
'Her henter vi sidste anvendt id nr'
Me.Label10.Caption = Application.WorksheetFunction.Large(Sheets("Medlemmer").Range("A2:A170"), 1)

End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Brug knappen!"
  End If
End Sub


mvh

mvhansen

Hej Bak og flemmingdahl
Det var her der var fejl

Private Sub CommandButton2_Click()
Dim o As Long
Dim tb As String


Dim i >her



txtPart.Text = ""
txtNavn.Text = ""
txtEfternavn.Text = ""
txtAdresse.Text = ""
txtPostnr.Text = ""
txtBy.Text = ""
txtCprnr.Text = ""
txtMailAdresse.Text = ""

With Sheets("Medlemmer")

o = .Range("A65000").End(xlUp).Row
tb = TextBox1.Text
    For i = 2 To o + 1
        If LCase(.Cells(i, 1).Value) = LCase(tb) Then
            txtPart.Text = .Cells(i, 1).Value
            txtNavn.Text = .Cells(i, 2).Value
            txtEfternavn.Text = .Cells(i, 3).Value
            txtAdresse.Text = .Cells(i, 4).Value
            txtPostnr.Text = .Cells(i, 5).Value
            txtBy.Text = .Cells(i, 6).Value
            txtCprnr.Text = .Cells(i, 7).Value
            txtMailAdresse.Text = .Cells(i, 8).Value
            Exit For
        Else: If i = o Then MsgBox ("Ingen fundet")
        End If
    Next i

End With

       
End Sub

Det var her der var fejl


Private Sub CommandButton2_Click()
Dim o As Long
Dim tb As String

txtPart.Text = ""
txtNavn.Text = ""
txtEfternavn.Text = ""
txtAdresse.Text = ""
txtPostnr.Text = ""
txtBy.Text = ""
txtCprnr.Text = ""
txtMailAdresse.Text = ""

With Sheets("Medlemmer")

o = .Range("A65000").End(xlUp).Row
tb = TextBox1.Text
    For i = 2 To o + 1
        If LCase(.Cells(i, 1).Value) = LCase(tb) Then
            txtPart.Text = .Cells(i, 1).Value
            txtNavn.Text = .Cells(i, 2).Value
            txtEfternavn.Text = .Cells(i, 3).Value
            txtAdresse.Text = .Cells(i, 4).Value
            txtPostnr.Text = .Cells(i, 5).Value
            txtBy.Text = .Cells(i, 6).Value
            txtCprnr.Text = .Cells(i, 7).Value
            txtMailAdresse.Text = .Cells(i, 8).Value
            Exit For
        Else: If i = o Then MsgBox ("Ingen fundet")
        End If
    Next i

End With

       
End Sub

mvh

mvhansen

Hej Bak og flemmingdahl
Det var her der var fejl
der skulle ikke    Dim i


Private Sub CommandButton2_Click()
Dim o As Long
Dim tb As String


Dim i >her



txtPart.Text = ""
txtNavn.Text = ""
txtEfternavn.Text = ""
txtAdresse.Text = ""
txtPostnr.Text = ""
txtBy.Text = ""
txtCprnr.Text = ""
txtMailAdresse.Text = ""

With Sheets("Medlemmer")

o = .Range("A65000").End(xlUp).Row
tb = TextBox1.Text
    For i = 2 To o + 1
        If LCase(.Cells(i, 1).Value) = LCase(tb) Then
            txtPart.Text = .Cells(i, 1).Value
            txtNavn.Text = .Cells(i, 2).Value
            txtEfternavn.Text = .Cells(i, 3).Value
            txtAdresse.Text = .Cells(i, 4).Value
            txtPostnr.Text = .Cells(i, 5).Value
            txtBy.Text = .Cells(i, 6).Value
            txtCprnr.Text = .Cells(i, 7).Value
            txtMailAdresse.Text = .Cells(i, 8).Value
            Exit For
        Else: If i = o Then MsgBox ("Ingen fundet")
        End If
    Next i

End With

       
End Sub

Jeg ved ikke om jeg skal give point for dette ?????????

mvh

mvhansen

vi har så mange ta dine point igen eller gi dem til Bak

Tak skal i have

mvh

mvhansen

enig Flemming :-)