81
Excel / Re: Bestand voor genealogie
« Laatste bericht door Della Jordan Gepost op 30 april 2024, 13:57:58 »En hierbij de volgende versie.
Sub Start()
Dim min, max, kant
min = 10
max = 60
kant = 10
Application.ActiveWindow.ScrollRow = min
While Application.ActiveWindow.ScrollRow <= max
Application.Wait Now + TimeValue("00:00:01")
If Application.ActiveWindow.ScrollRow = min Then kant = 10
If Application.ActiveWindow.ScrollRow = max Then kant = -10
Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow + kant
Wend
End Sub
Ik heb ook Aldfaer eens bekeken, wordt niet meer ondersteund en is zeker geen aanrader.
Maar ik bewonder het voorbeeld en de energie dat je er al ingestoken hebt.
maar als ik weer de zelfde csv ophalen zet hij die niet neer in A1 maar de cel ernaastSunnybat,
is het mogelijk voordat ik de csv ophalen dat A1:H150 leeg wordt gemaakt en dan de macro runt en de csv ophaald
Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
ws.Range(A1:H150").Clear
Range("A1").Select
'........
end Sub
Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\Test\test.csv"
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
'geef de scheidingstekens op:
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileCommaDelimiter = False
.Refresh
End With
End Sub
Private Sub Workbook_Open()
CSV_Import
End Sub
Private Sub LB03_Click()
For i = 0 To 9
Me("T_0" & i) = LB03.Column(i)
Next
For i = 10 To 20
Me("T_" & i) = LB03.Column(i)
Next
T_24 = LB03.Column(21)
T_25 = LB03.Column(22)
T_26 = LB03.Column(23)
T_27 = LB03.Column(24)
T_28 = LB03.Column(25)
T_29 = LB03.Column(26)
T_30 = LB03.Column(27)
T_31 = LB03.Column(28)
T_32 = LB03.Column(29)
T_33 = LB03.Column(30)
T_34 = LB03.Column(31)
T_35 = LB03.Column(32)
LB02.ListIndex = -1
On Error Resume Next
Img00.Picture = LoadPicture(ThisWorkbook.Path & "\plaatjes\" & T_20.Value)
End Sub
Was opgelost, maar die heb je blijkbaar toch naar de sjaak geholpen, kan ik zien in de code, je hebt je code waarschijnlijk niet aangepast naar mijn laatste bijlage.Ik zou bij God niet durven iets naar de sjaak te helpen ..... hahahahahahahaha