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

• #3090 Lokids addikt Zalanius #3089

  Új Válasz 2019-02-13 15:46:50 #3090

  Ú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

  

  Lokids

  addikt

  válasz Zalanius #3089 üzenetére

  Köszi. Így jó.

• #3079 Lokids addikt Zalanius #3078

  Új Válasz 2019-01-09 12:43:54 #3079

  Ú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

  

  Lokids

  addikt

  válasz Zalanius #3078 üzenetére

  Attachment nélkül sem megy, updatet is hozzáadtam, meg a config sort is. És persze nincs kommentezve az auth sem, csak már a nélkül is próbáltam.

  De a legrosszabb, hogy semmi hibát nem dob. Végig fut, mintha nem lenne gond.

• #3074 mdk01 addikt Zalanius #3072

  Új Válasz 2019-01-07 22:34:47 #3074

  Ú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

  

  mdk01

  addikt

  válasz Zalanius #3072 üzenetére

  

• #3069 Delila_1 veterán Zalanius #3067

  Új Válasz 2018-12-16 14:55:04 #3069

  Ú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

  

  Delila_1

  veterán

  válasz Zalanius #3067 üzenetére

  Szerkesztés: elnézést, Vertusnak szól,

  Nálam a makrót tartalmazó füzet első lapján, az A oszlopban vannak a fájlnevek, kiterjesztéssel. Mellettük a B-ben a hozzájuk tartozó jelszavak.
  Két helyen kell a makrót személyre szabnod. Az első az utvonal változó, a második a Match függvényes sor. Mindkettő végére tettem 3 db *-ot.

  Private Sub Megnyit()
Dim FN As String, sor As Variant, jelszo
Const utvonal As String = "F:\Eadat\Próba\" '***

ChDir utvonal
FN = Dir(utvonal & "*.xlsx")
Do While FN <> ""
On Error Resume Next
sor = Application.Match(FN, Sheets(1).Columns(1), 0) '***
If sor = vbError Then
On Error GoTo 0
Else
jelszo = Sheets(1).Cells(sor, 2)
Workbooks.Open Filename:=utvonal & FN, Password:=jelszo
'*******************************************************
'másolás
'*******************************************************
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
FN = Dir()
Loop
End Sub

• #3054 Bobrooney senior tag Zalanius #3051

  Új Válasz 2018-07-18 10:01:13 #3054

  Ú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

  

  Bobrooney

  senior tag

  válasz Zalanius #3051 üzenetére

  Köszi király vagy!

• #3053 Bobrooney senior tag Zalanius #3051

  Új Válasz 2018-07-17 13:38:59 #3053

  Ú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

  

  Bobrooney

  senior tag

  válasz Zalanius #3051 üzenetére

  Köszi rálesek majd

  Igen én is végül arra jutottam, hogy előtte töröljük a link-et majd újra hozzáadjuk.

• #3052 sztanozs veterán Zalanius #3051

  Új Válasz 2018-07-17 11:19:04 #3052

  Ú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

  

  sztanozs

  veterán

  válasz Zalanius #3051 üzenetére

  Az a gond, hogy egy cellában egyszerre csak egy link lehet, hiába csinálsz bármit, csak egy lesz élő. Hiperlink cserénél célszerű először törölni, uátna létrehozni az újat.

• #3047 Bobrooney senior tag Zalanius #3046

  Új Válasz 2018-07-12 07:29:43 #3047

  Ú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

  

  Bobrooney

  senior tag

  válasz Zalanius #3046 üzenetére

  Köszönöm! Ez nekem megteszi szerintem!

• #3045 Bobrooney senior tag Zalanius #3044

  Új Válasz 2018-07-11 19:52:34 #3045

  Ú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

  

  Bobrooney

  senior tag

  válasz Zalanius #3044 üzenetére

  Köszi meglesem majd.

  Végül rekorddal oldottam meg a bináris fához kevés voltam, meg időm sem volt rá sok, viszont lett lassú.

  Most egy olyan problémám van, hogy vannak bizonyos cellák amikre van beállítva hyperlink, és azt kellene ellenőriznem, hogy ezek a hyperlinkek valós fájlokra vannak-e beállítva (mondjuk kitöröltek 1 fájlt, de a hivatkozás megmaradt). Sajna a fájlok átnevezése jelenleg nem kivitelezhető.

  Ami itt a gondom, hogy némelyik fájlban van szóköz, [] zárójelek stb.. tehát amikor lekérdezem a hyperlink-et akkor a hivatkozásban "konyvtar\valami%5d%20f.docx" formában kapom vissza. Ezzel mit lehet mókolni, hogy a rendes fájlnevet kapjam vissza?
  A hyperlinket így kérem le: Cells(3,3).Hyperlinks(1).Address

  Köszi a válaszokat.

• #3040 gebic csendes tag Zalanius #3039

  Új Válasz 2018-06-25 12:01:55 #3040

  Ú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

  

  gebic

  csendes tag

  válasz Zalanius #3039 üzenetére

  Szia Zalán!

  Igen ez lesz nekem a megoldás. Valóban be kell szúrni egy következő Pararaph-t.

  Most már csak annyi maradt a problémámból, hogy a feladat:
  1. sor szöveg
  2. sor beillesztett kép
  3. sor szöveg.

  Jelenleg ha beszúrom a képet, akkor a margók 1,1 poziciójába teszi be és felülírja az első sort.

  Hogyan tudok úgy beszúrni egy képet, hogy megadom, hogy melyik X,Y koordinátára helyezze el a képet,
  vagyis, a RANGE-en belül hova teyge.

  Köszi: Gábor

• #3029 Zoleeh csendes tag Zalanius #3027

  Új Válasz 2018-04-20 09:22:56 #3029

  Ú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

  

  Zoleeh

  csendes tag

  válasz Zalanius #3027 üzenetére

  Köszi!

  Kipróbáltam, de nem működik, ahogy az én megoldásaim sem. Átállítja a formátumot, de csak F2 + Enter után veszi azt fel az adott cella.
  Közben találtam egy megoldást, itt a fórumon olvasott alapján. Mivel az én esetemben az 1., 6. és 7. oszlop tartalmaz átalakítandó ("m/d/yyyy h:mm" formátumra) dátumot , de az 1. és 6. mindig ugyanaz, és a 6. és a 7. csak az időben különbözik mindig. Ezért működik ez:

  For n = 2 To ActiveSheet.UsedRange.Rows.Count
Cells(n, 1).FormulaR1C1 = DateValue(Cells(n, 1))
Cells(n, 6).FormulaR1C1 = TimeValue(Cells(n, 6))
Cells(n, 7).FormulaR1C1 = TimeValue(Cells(n, 7))
Next n

  Dehogy ha mindhárom oszlop más napot és időt tartalmazna nem tudom mi lenne a megoldás.

• #3028 Zalanius tag Zalanius #3027

  Új Válasz 2018-04-18 11:18:41 #3028

  Ú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

  

  Zalanius

  tag

  válasz Zalanius #3027 üzenetére

  Csak egy kis kiegészítés, mert a szerk. idő lejárt: nyilván más esetekben célszerűbb lehet inkább Selection.Cells kollekcióra futtatni a ciklust, a példában egy töküres lapon csak a dátumos cellák szerepeltek, ezért volt mindegy.

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