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

• #46962 Pakliman tag andreas49 #46956

  Új Válasz 2021-06-13 16:46:12 #46962

  Ú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 andreas49 #46956 üzenetére

  Szia!

  Egy lehetőség...
  Az sPath mappában lévő összes *.xls* fájlon végigmegy.
  Megnyitja a fájlt, a benne lévő munkalapokon megkeresi és kicseréli az összes sMit (cserélendő) szöveget az sMire szövegre majd bezárja MENTÉSSEL a megnyitott táblázatot.

  Sub x()
Const sPath As String = "d:\_Egyéb\"
Dim sName As String
Dim sFullName As String
Dim wb As Workbook
Dim ws As Worksheet
Dim r As Range
Dim sAddr1 As String
Dim sMit As String
Dim sMire As String

sMit = "keresendő szöveg"
sMire = "erre cseréljük"

sName = Dir(sPath & "*.xls*")
Do Until sName = ""
sFullName = sPath & sName
Set wb = Workbooks.Open(Filename:=sFullName)
For Each ws In wb.Worksheets
With ws.Cells
Set r = .Find(What:=sMit, LookIn:=xlValues, LookAt:=xlPart)
If Not r Is Nothing Then
sAddr1 = r.Address
Do
r.Value = Replace(r.Value, sMit, sMire)
Set r = .FindNext(r)
Loop While Not r Is Nothing
End If
End With
Next ws
wb.Close SaveChanges:=True
sName = Dir
Loop
End Sub

• #46957 föccer nagyúr andreas49 #46956

  Új Válasz 2021-06-13 13:25:22 #46957

  Ú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

  

  föccer

  nagyúr

  válasz andreas49 #46956 üzenetére

  Ha jól értem akkor az összes vezétés/keresztnév párosítást ki kell egyelni, hogy mindenből csak 1 szerepeljen?

  ha csak egyszer kell megcsinálni, akkor lehet egyszerűbb ha összevágod 1 munkalapra a teljes adattáblát, összefűzöd a vezeték és keresztneveket, majd használd az adatok/azonosak eltávolítását (lehet nem pontos a név)

  Macerás, összerajni egy munkalapra, de billentyűzetről gyorsan be lehet tanulni a mozdulatsort. A1 kijelölve, ctrl+END-el adatsor vége, ctrl+C másilás, Alt+tab-al átlépsz arra ahol össze fűzöd az adatokat. ctrl+ lefele nyíllal lépz az urolso sorra, majx ctrl+v-vel beszúrsz. Ha begyakorolod, akkor pár 10 másodpercenként meglehetsz 1-1 munkalappal. Kicsit unalmas, de 1-2 óra altt le lehet darálni. Én sokszor lusta vagyok makrózni.

  üdv, föccer

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