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

• #2887 alfa20 senior tag alfa20 #2886

  Új Válasz 2017-08-26 17:42:04 #2887

  Ú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

  

  alfa20

  senior tag

  válasz alfa20 #2886 üzenetére

  nézd meg ezt:

  Sub main()

Application.ScreenUpdating = False

Dim usorKesz, alapSor As Long
usorKesz = Sheets("Kész").Range("A" & Rows.Count).End(xlUp).Row
alapSor = 1

Sheets("Alap").Select

Do While (Cells(1, 1) <> "")
Cells(1, 1).Copy
Sheets("Összefűz").Range("A2").PasteSpecial
Sheets("Kész").Cells(usorKesz + alapSor, 1) = Sheets("Összefűz").Range("A1") & _
Sheets("Összefűz").Range("A2") & Sheets("Összefűz").Range("A3")
alapSor = alapSor + 1
Sheets("Alap").Cells(1, 1).Delete
Loop

Sheets("Kiegészít").Range("A1:A16").Copy
Sheets("Kész").Range("A" & usorKesz + alapSor).PasteSpecial
Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

• #2886 alfa20 senior tag xml2 #2885

  Új Válasz 2017-08-26 10:57:16 #2886

  Ú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

  

  alfa20

  senior tag

  válasz xml2 #2885 üzenetére

  Ha törölni szeretnéd a tartalmat, másképp oldalán meg, a while ciklust módosítanám
  , úgy hogy amit kimásolt azt törölje és addig menjen a ciklus míg a cella tartalma nem üres, de most telóról vagyok, majd délután átírom.

• #2884 alfa20 senior tag xml2 #2883

  Új Válasz 2017-08-26 00:00:07 #2884

  Ú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

  

  alfa20

  senior tag

  válasz xml2 #2883 üzenetére

  Szia!

  Én így oldanám meg, viszont a Do While-ban lévő első két sort én elhagynám, az ha nincs miértje, szerintem felesleges. Illetve a "3 cellát összefűzni (szóköz nélkül)" arra utalt, hogy a cellák közt ne legyen szünet vagy a tartalmukban?
  Ha a tartalmukban, akkor vedd ki a kommentet a ' szóköz eltávolítása:

  Sub main()

Application.ScreenUpdating = False

Dim usorKesz, alapSor As Long
usorKesz = Sheets("Kész").Range("A" & Rows.Count).End(xlUp).Row
alapSor = 1

Sheets("Alap").Select

Do While (Cells(alapSor, 1) <> "")
Cells(alapSor, 1).Copy
Sheets("Összefűz").Range("A2").PasteSpecial
Sheets("Kész").Cells(usorKesz + alapSor, 1) = Sheets("Összefűz").Range("A1") & _
Sheets("Összefűz").Range("A2") & Sheets("Összefűz").Range("A3")
' szóköz eltávolítása:
'Sheets("Kész").Cells(usorKesz + alapSor, 1).Replace What:=" ", Replacement:=""
alapSor = alapSor + 1
Loop

Sheets("Kiegészít").Range("A1:A16").Copy
Sheets("Kész").Range("A" & usorKesz + alapSor).PasteSpecial

Application.ScreenUpdating = True

End Sub

  erre gondoltál?

• #2874 alfa20 senior tag alfa20 #2873

  Új Válasz 2017-06-20 15:11:43 #2874

  Ú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

  

  alfa20

  senior tag

  válasz alfa20 #2873 üzenetére

  MySQL-ben kellett beállítani, hogy minden gép elérje most elérem a táblákat, jöhet a programozás

• #2873 alfa20 senior tag martonx #2872

  Új Válasz 2017-06-20 10:02:01 #2873

  Ú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

  

  alfa20

  senior tag

  válasz martonx #2872 üzenetére

  Köszi, ezek mind be vannak állítva, másik gépről MySQL Workbanch-el elérem az adatbázist SSH kapcsolattal. Viszont azt nem tudom hogy tudnám ezt VB.NET-ben kivitelezni, eddig csak olyan csatlakozásokat találtam ahol egy IP:port címre kellett kapcsolódni, de nekem meg egyszer a Pi-re, majd onnan a MySQL-re.
  Vagy nem tudom

• #2871 alfa20 senior tag

  Új Válasz 2017-06-19 22:58:53 #2871

  Ú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

  

  alfa20

  senior tag

  Sziasztok!

  Egy hálózaton van több gép is, ezek közül az egyik egy PI3 amin fut egy Webmin + Apache + MySQL, erre hogy tudok VB.NET-el fel csatlakozni?
  MySQL Workbanch-el elérem az adatbázist SSH kapcsolattal
  Pi3 IP: 192.168.0.13:22
  Pi3 MySQL: 127.0.0.1::3306

  Workbanch mind két jelszót kéri a Pi-ét és a adatbázisét is.

• #2705 alfa20 senior tag bundli #2704

  Új Válasz 2016-04-05 08:36:06 #2705

  Ú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

  

  alfa20

  senior tag

  válasz bundli #2704 üzenetére

  nálam 2010-es Excel-ben nincs gondja, szépen törli:

  

• #2703 alfa20 senior tag bundli #2702

  Új Válasz 2016-04-04 18:51:43 #2703

  Ú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

  

  alfa20

  senior tag

  válasz bundli #2702 üzenetére

  Szia,

  Tartalom törlést próbáld meg esetleg:
  Range("A1:C100").ClearContents

• #2636 alfa20 senior tag

  Új Válasz 2015-05-20 10:28:39 #2636

  Ú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

  

  alfa20

  senior tag

  Sziasztok!

  egy sima .txt fájlból, hogy tudom feltőlteni a tömbömet?

  VB kódban így nézki:
  tomb = Array("A1", "B2", "C3", "D4", "E5")

  a .txt fájl meg így:
  

  ezt szeretném betőltetni, mert így egyszerübb enne bővíteni a listát.

  a másik kérdésem:
  - a tömb egyik elemének a helyét, hogy tudom meghatározni, ha ismerem az elemet:
  ugye tomb(1) = B2 de D4=tomb(?)

• #2055 alfa20 senior tag

  Új Válasz 2013-04-10 08:23:13 #2055

  Ú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

  

  alfa20

  senior tag

  Sziasztok,

  Excelben szeretnék makrót készíteni, és ehhez keresek magyar nyelvű könyvet, kettő könyv közt tanakodok:
  1.) Demeter M. Ibolya: Visual Basic 6.0
  2.) Peter G. Aitken - Visual Basic 6 - Kék könyv

  nekem csak az Excelhez kell a VB és azt olvastam hogy erre a VB6 a jobb.
  valaki tudna abban segíteni, hogy teljesen a nulláról, melyik könyvet érdemes választani esetleg mind kettőt, vagy van jobb választás?

  Excelben azért otthon vagyok, írtam is már pár makrót rögzítéssel, de az összetettebbekhez kevés a tudásom

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