t&d

De code werkte eerst maar nu niet meer?Ik denk dat het tussen regel 6 en 19 zit maar ben niet zeker.Foutopsporing leid naar commandobutton, maar code is enkel om formulier te open Private Sub cmdopen_2_Click() Userform1.Show End Sub Option Explicit Dim blnNew As Boolean Dim Dic As Object, i As Long Private Sub UserForm_Initialize() cmdSave.Enabled = False Frame2.Enabled = False Dim sv, i As Long sv = Sheets(1).Cells(1).CurrentRegion Set Dic = CreateObject("scripting.dictionary") For i = 1 To UBound(sv) If Not Dic.exists(sv(i, 1)) Then Dic.Item(sv(i, 1)) = Array(sv(i, 1), CreateObject("scripting.dictionary"), CreateObject("scripting.dictionary")) Dic(sv(i, 1))(1).Item(sv(i, 2)) = Dic(sv(i, 1))(1).Item(sv(i, 2)) Dic(sv(i, 1))(2).Item(sv(i, 2)) = Array(sv(i, 2), Application.Index(sv, i, Array(1, 3, 6, 7, 10, 11)), i) Next i ComboBox2.List = Dic.keys Dim wb As Workbook: Set wb = ThisWorkbook Dim WS As Worksheet Dim LastRow As Long Dim aCell As Range Set WS = wb.Sheets("Type data") With WS LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row For Each aCell In .Range("C1:C" & LastRow) If aCell.Value <> "" Then Me.TextBox2.AddItem aCell.Value End If Next End With Set WS = wb.Sheets("Type data") With WS LastRow = .Cells(.Rows.Count, "O").End(xlUp).Row For Each aCell In .Range("O1:O" & LastRow) If aCell.Value <> "" Then Me.TextBox5.AddItem aCell.Value End If Next End With End Sub Private Sub cmdClose_Click() If cmdClose.Caption = "Close" Then Unload Me Else cmdClose.Caption = "Close" cmdNew.Enabled = True End If End Sub Private Sub cmdNew_Click() blnNew = True txtklant.Text = "" txttype.Text = "" txtdossier.Text = "" txtdatum.Text = "" txtbestand.Text = "" txtbestemming.Text = "" cmdClose.Caption = "Cancel" cmdNew.Enabled = False cmdSave.Enabled = True Frame2.Enabled = True End Sub Private Sub cmdSave_Click() If Trim(txtklant.Text) = "" Then MsgBox "Enter klant", vbCritical, "Save" txtklant.SetFocus Exit Sub End If Call prSave cmdClose.Caption = "Close" cmdNew.Enabled = True ThisWorkbook.Save End Sub Private Sub prSave() ''''' Save the dms If blnNew = True Then TRows = Worksheets("dms").Range("A1").CurrentRegion.Rows.Count With Worksheets("dms").Range("A1") .Offset(TRows, 0).Value = txtklant.Text .Offset(TRows, 1).Value = txttype.Text .Offset(TRows, 2).Value = txtdossier.Text .Offset(TRows, 3).Value = txtdatum.Text .Offset(TRows, 4).Value = txtbestand.Text .Offset(TRows, 11).Value = txtbestemming.Text End With txtklant.Text = "" txttype.Text = "" txtdossier.Text = "" txtdatum.Text = "" txtbestand.Text = "" txtbestemming.Text = "" Call prComboBoxFill Else For i = 2 To TRows If Trim(Worksheets("dms").Cells(i, 1).Value) = Trim(ComboBox3.Text) Then Worksheets("dms").Cells(i, 1).Value = txtklant.Text Worksheets("dms").Cells(i, 2).Value = txttype.Text Worksheets("dms").Cells(i, 3).Value = txtdossier.Text Worksheets("dms").Cells(i, 4).Value = txtdatum.Text Worksheets("dms").Cells(i, 5).Value = txtbestand.Text Worksheets("dms").Cells(i, 13).Value = txtbestemming.Text txtklant.Text = "" txttype.Text = "" txtdossier.Text = "" txtdatum.Text = "" txtbestand.Text = "" txtbestemming.Text = "" Exit For End If Next i End If blnNew = False If Trim(txtklant.Text) = "" Then cmdSave.Enabled = False Frame2.Enabled = False Else cmdSave.Enabled = True Frame2.Enabled = True End If End Sub Private Sub cmdSearch_Click() Userform1.Show End Sub Private Sub ComboBox2_Change() hsv ComboBox3.List = Dic(ComboBox2.Value)(1).keys ComboBox3.ListIndex = -1 End Sub Private Sub ComboBox3_Change() If ComboBox3.ListIndex > -1 Then For i = 1 To 6 Controls("Textbox" & i).Value = Dic(ComboBox2.Value)(2)(ComboBox3.Value)(1)(i) Next i End If End Sub Private Sub hsv() ComboBox3.ListIndex = -1 For i = 1 To 6 Me.Controls("TextBox" & i).Value = "" Next i End Sub Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer) End Sub Private Sub Image2_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer) End Sub test_DMS.xlsm

heb je al geprobeerd met: 'Naam_tabblad'!$B$7 als je zegt dat het overal B7 moet zijn moet je voor de B als voor de 7 een $ plaatsen

Beste, Kan iemand mij helpen? Probleem in Userform1:Probleem 1 Wanneer ik via een een combobox een waarde opzoek krijg ik nu automatisch de waarden ingevuld die ik opzoek, maar deze comboboxen zouden beide moeten geselecteerd worden en niet één van de twee zoals nu. Als waarde van combobox 1 is gekozen is combobox 2 dus afhankelijke van de waarde van 2. en zal deze dan van sheet DMS de gegevens in de textboxen weergeven.probleem 2: Maar hoe kan ik de waarde van een cel oproepen waar een hyperlink staat en deze Via een commandbutton laten openen? deze zal later automatisch ingevuld worden via hyperlink in kolom K Probleem in sheet " DMS" wanneer ik via de userform een nieuwe regel invoeg zou excell automatisch een nieuwe regel moeten invoeren met de vastgelegde verwijzging als de rij erboven maar zonder de gegevens dia via het userform "frmEmpDetails1" worden ingegeven en opgeslagen. Als ik in sheet DMS al voor verschillende keer een copy zou doorvoeren in de rijen komt dan in combobox1 een 0 te staan wat niet zou mogen. test_DMS.xlsm test_DMS.xlsm

eigen ontwikkelde software. op andere pc's met andere windows versie werkt het perfect behalve onder vista ultimate.

Ik heb een pc met vista ultimate en een pc met vista business. wanneer ik een programma heb die een pdf aanmaak en deze automatisch laat openen lukt dit niet bij ultimate maar wel bij business. Kan iemand mij helpen hoe ik dit kan oplossen in ultimate. bedankt