foutcode 438

Status
Niet open voor verdere reacties.
Atwist

Atwist

Terugkerende gebruiker
Lid geworden
24 jan 2006
Berichten
1.055
Besturingssysteem
Wndows 10
Office versie
2016
Na lange tijd gebruik ik weer het formulier wat ik destijds heb gemaakt, alleen nu krijg ik deze melding:

2017-09-01 foutcode 438.png
Loopt van op de rode tekst

Code: 
Private Sub CommandButton6_Click()
Sheets("Archief").Select
If Application.WorksheetFunction.CountIf(Range("Archief!P:P"), Me.TextBox7.Value) > 0 Then
TextBox7.BackColor = &HFF&
MsgBox ("Project nummer bestaat al")
Else
TextBox7.BackColor = &HFF00&
If TextBox7.Value >= 0 Then ListBox13.Enabled = True
End If
Sheets("Archief").Select
  Range("O1:P300").Select
[COLOR="#FF0000"]  Range("$O$1:$P$300").RemoveDuplicates Columns:=Array(1, 2), Header _
          :=xlNo[/COLOR]
          
   Range("O1:P300").Select
    ActiveWorkbook.Worksheets("Archief").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Archief").Sort.SortFields.Add Key:=Range("O1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Archief").Sort
        .SetRange Range("O1:P300")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Ik heb momenteel geen idee waar ik moet zoeken, ben te lang uit het Excel en VBA gebeuren.

Graag een tip van jullie kant, zodat ik weer verder kan
 
Welke versie van Office gebruik je nu en in welke versie werkte het wel?
Op zich is er met die rode regel niks mis. Plaatst dus je document.
 
Hallo Ed,

Ik snap er ook niets van dit formulier is gemaakt met Excel 2003 en daar werk ik nu nog steeds mee, ik weet dat ik hier in achter loop.
Hier het formulier.
Bekijk bijlage Teksten maken.xls

Ik heb trouwens gemerkt dat een ander formulier die ik weer wil gebruiken ook deze fout geeft, zou het dan een algemeen Excel probleem zijn.
Heb namelijk een crash gehad heb Windows en Excel plus ander programma's opnieuw geïnstalleerd.
De Excel bestanden stonden op een server.
 
Het blad Archief en de CommandButton6 zoals in de code in #1 staat komt nergens voor in het document dat je plaatste.
 
Wegschrijven van invoer zou ik zo doen:

Code: 
Sheets("Teksten").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 8) = Array(ListBox1, "***Text Item ****", TextBox1, TextBox2, ":-L" & " " & ListBox2, IIf(ListBox4 = "", " ", ":-w " & ListBox4), IIf(ListBox5 = "", " ", ":-sd " & ListBox5), IIf(ListBox8 = "", " ", ":-h " & ListBox8))

Gebruik ook eens wat meer lussen:

Code: 
for j=1 to 8
  Me("Listbox" &j).listindex=-1
  Me("TextBox" & j).test=""
  Me("checkNox" & j).value=false
Next

in plaats van
ListBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
ListBox2.Value = ""
ListBox4.Value = ""
ListBox5.Value = ""
ListBox8.Value = ""

CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
 
Laatst bewerkt:
De fout wordt veroorzaakt door een poging het Userform frmArchief te openen.
Die is er niet. Evenals frmAfdruk en frmService.
 
Laatst bewerkt:
snb zei:
Gebruik ook eens wat meer lussen:

Code: 
for j=1 to 8
  Me("Listbox" &j).listindex=-1
  Me("TextBox" & j).test=""
  Me("checkNox" & j).value=false
Next

in plaats van
ListBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
ListBox2.Value = ""
ListBox4.Value = ""
ListBox5.Value = ""
ListBox8.Value = ""

CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
Klik om te vergroten...

Dit ga ik eens wijzigen maar zoals ik al zei ik ben een tijdje uit Excel gebeuren geweest dus moet er weer even inkommen :eek:
 
SNB,

Heb nu dit gebruikt
Code: 
for j=1 to 8
  Me("Listbox" &j).listindex=-1
  Me("TextBox" & j).test=""
  Me("checkNox" & j).value=false
Next
Wel even de typefoutje eruit gehaald, maar het loopt wel vast op de onderste regel
2017-09-01 Fout 2147024809.png
 
Heb je #7 al gelezen?
 
wel effe sjekken of er 8 listboxen, textboxen en checkboxen zijn.
 
Atwist zei:
Nee het is:
7 ListBox
3 TextBox
3 CheckBox
Klik om te vergroten...

Code: 
For j = 1 To 8
  Me("Listbox" & j).ListIndex = -1
  Next
For k = 1 To 3
  Me("TextBox" & k).Text = ""
  Next
For l = 1 To 3
  Me("CheckBox" & l).Value = False
Next

Dit heeft ook niet mogen baten.
Bekijk bijlage Teksten maken.xls
Dit is het bestand wat er bij hoort, het stomste is dat de gegevens wel worden weggeschreven.
 
Laatst bewerkt:
Hij gaat fout in de UserForm_Initialize() van de Userform Frmarchief.
Ik heb geen tijd dit uit te zoeken dus mag je zelf doen ;)
 
edmoor zei:
Hij gaat fout in de UserForm_Initialize() van de Userform Frmarchief.
Ik heb geen tijd dit uit te zoeken dus mag je zelf doen ;)
Klik om te vergroten...

Ik wil het ook graag zelf uitzoeken maar ben momenteel wat tips nodig waar ik moet zoeken.
 
Dat zei ik, in de UserForm_Initialize() van de Userform Frmarchief.
 
edmoor zei:
Dat zei ik, in de UserForm_Initialize() van de Userform Frmarchief.
Klik om te vergroten...

Dat had ik al gelezen en wat ik daar heb kunnen vinden is:
Code: 
     With Sheets("VBA")                                 'dit is het hulpblad, best voor niets anders gebruiken  !!!!!!
Deze is nu aangemaakt maar blijft toch vast lopen op deze regel van Userform Frminvoer.
Code: 
  Range("$O$1:$P$300").RemoveDuplicates Columns:=Array(1, 2), Header _
          :=xlNo
En dat snap ik dan weer niet.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan