Új hozzászólás Aktív témák

• #49245 Pakliman tag bozsozso #49244

  Új Válasz 2022-06-30 08:58:28 #49245

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  válasz bozsozso #49244 üzenetére

  Jónak tűnik, viszont én egy változóba menteném a régi értéket.
  Sub Próba()
Const sep = ","
Dim utvonal As String
Dim b As String
Dim FileNum As Integer
Dim DestFile As String
Dim vLastRow As Long
Dim ki As String
Dim i As Long, j As Long
Dim mentett As String

vLastRow = Range("AD" & Rows.Count).End(xlUp).Row

'A sorba rendezés
Columns("A:AD").Sort Key1:=Columns("AD"), Header:=xlYes

mentett = ""
bezárni = False
For i = 2 To vLastRow
b = Cells(i, "AD")
If mentett <> b Then
'"Változott" az AD cella értéke, tehát...
If FileNum <> 0 Then Close FileNum '...bezárjuk az előzőleg megnyitott fájlt
mentett = b 'Az új értéket elmentjük
utvonal = "E:\teszt\" & b & "\"
If Dir(utvonal, vbDirectory) = "" Then MkDir (utvonal)
DestFile = utvonal & "teszt.TXT"
FileNum = FreeFile()
Open DestFile For Append As #FileNum
End If

ki = "7000" & sep & b & "_" & ". stb... amit akarsz..."
Print #FileNum, Left(ki, Len(ki) - Len(sep))
Next i

If FileNum <> 0 Then Close FileNum 'A végső lezárás...
End Sub

Új hozzászólás Aktív témák