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

• #33475 b3n1t0 csendes tag G.A. #33450

  Új Válasz 2016-12-18 17:14:43 #33475

  Ú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

  

  b3n1t0

  csendes tag

  válasz G.A. #33450 üzenetére

  Szia, ezt találtam alternatív megoldásként, ez a kód mehet a Thisworkbook-ba:

  Private Sub Workbook_Open()

Application.OnTime Now(), "OpenWkbkEvent"

End Sub

  ez pedig Module-ba:

  Public Sub OpenWkbkEvent()
With ThisWorkbook
.RefreshAll
.Save
End With
Dim mysec As Integer, msg As String
mysec = 5 'Seconds
msg = "This Workbook would close in " & mysec & _
" seconds." & vbLf & "Press ok to terminate the timer."

With CreateObject("WScript.Shell")
Select Case .Popup(msg, mysec, "Info", 0)
Case 1
Exit Sub
End Select
End With
'ThisWorkbook.Close True
End Sub

• #33158 b3n1t0 csendes tag róland #33106

  Új Válasz 2016-11-07 14:35:37 #33158

  Ú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

  

  b3n1t0

  csendes tag

  válasz róland #33106 üzenetére

  Szia,

  az alábbi makrót bemásolod egy modulba (témaösszefoglaló), a munkalapon kijelölöd azt a tartományt, amit exportálni szeretnél, majd ALT + F8, kiválasztod a Save2Text makrót és indítás. A makróban kommenttel jelölt mentési helyre elkészíti a file-t, lentebb szintén kommentelt résznél tudsz még elválasztó jelet módosítani (vessző, pontosvessző stb...)

  Public Sub Save2Text()

Dim lineText As String
Dim myrng As Range, i, j, k

Filename = "C:\export.csv" 'hova/milyen néven mentse

Open Filename For Output As #1

Set myrng = Selection

For i = 1 To myrng.Rows.Count
For j = 1 To myrng.Columns.Count
lineText = IIf(j = 1, "", lineText & ";") & myrng.Cells(i, j) '";" mivel legyenek elválasztva az adatok
Next j
Print #1, lineText
Next i

Close #1

End Sub

• #32826 b3n1t0 csendes tag alfa20 #32820

  Új Válasz 2016-10-01 09:52:26 #32826

  Ú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

  

  b3n1t0

  csendes tag

  válasz alfa20 #32820 üzenetére

  Szia,

  ezt a TextBox vezérlőt használva, nálam a kód működik, az első megoldás UserForm-on elhelyezett TextBox-okra vonatkozott

  

  Private Sub CommandButton1_Click()

For i = 1 To 13

Munka1.OLEObjects("Textbox" & i).Object.Value = ""

Next

End Sub

• #32818 b3n1t0 csendes tag alfa20 #32816

  Új Válasz 2016-09-30 14:30:07 #32818

  Ú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

  

  b3n1t0

  csendes tag

  válasz alfa20 #32816 üzenetére

  Private Sub cb_Clear_Click()

For i = 1 To 13

Munka1.Controls("Textbox" & i).Value = ""

Next

End Sub

• #32393 b3n1t0 csendes tag Delila_1 #32368

  Új Válasz 2016-08-20 17:05:59 #32393

  Ú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

  

  b3n1t0

  csendes tag

  válasz Delila_1 #32368 üzenetére

  Brilliant...mint mindig, köszönöm

• #32365 b3n1t0 csendes tag

  Új Válasz 2016-08-19 12:46:36 #32365

  Ú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

  

  b3n1t0

  csendes tag

  Sziasztok,

  az A : C oszlopban lévő adatot szeretném (a mindig változó) dátum szerint válogatni a mellette lévő minta szerint külön munkalapokra, köszi a segítséget

  

• #32235 b3n1t0 csendes tag bsasa1 #32227

  Új Válasz 2016-08-02 17:09:52 #32235

  Ú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

  

  b3n1t0

  csendes tag

  válasz bsasa1 #32227 üzenetére

  bsasa1 & Fferi50 - Köszönöm

• #32226 b3n1t0 csendes tag

  Új Válasz 2016-08-02 07:47:18 #32226

  Ú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

  

  b3n1t0

  csendes tag

  Sziasztok,

  az alábbi kihívást tárnám elétek, melyben szükségem lenne a segítségetekre.
  Adott az alábbi szerkezetű táblázat (1), melyből a (2) táblázat szerinti végeredményt kellene generálnom az alábbi feltételek szerint:
  - egy sornyi adatból annyi sort kellene létrehozni amennyi érték van az AJ:AQ tartományban - (2) tábla
  - a (2) táblán jól látszik egy sor „felosztása”, a 4 érték alapján (AJ:AQ tartomány értékeivel módosítjuk K oszlop dátumát (kivonunk illetve hozzáadunk dátumhoz), AR:AZ tartomány értékeivel – ami százalék tulajdonságú – pedig szorozzuk a P:AH tartomány értékeit, kerekítve a legközelebbi egészre
  - AJ:AQ tartomány értékei párban vannak a AR:AZ tartomány értékeivel (tehát AJ-ben lévő értékhez AR-ben lévő érték tartozik, AK-ban lévő értékhez AS értéke stb…)
  - ezt kellene az összes sorra elkészíteni

  (1)
  

  (2)
  

  Mindenkinek köszönöm aki foglalkozik vele!

• #28735 b3n1t0 csendes tag hemaka #28734

  Új Válasz 2015-09-22 10:52:04 #28735

  Ú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

  

  b3n1t0

  csendes tag

  válasz hemaka #28734 üzenetére

  Egy megoldásnak:

  

• #24059 b3n1t0 csendes tag csferke #24043

  Új Válasz 2014-11-04 14:41:27 #24059

  Ú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

  

  b3n1t0

  csendes tag

  válasz csferke #24043 üzenetére

  Szia, próbáld meg először a C:\ProgramData\Microsoft Help mappát átnevezni majd újratelepíteni az Office-t, ha nem oldja meg a problémát akkor állítsd vissza az Internet Explorer-t alaphelyzetbe (Eszközök / Internetbeállítások / Speciális / Alaphelyzet)

• #23948 b3n1t0 csendes tag slashing #23946

  Új Válasz 2014-10-29 07:17:38 #23948

  Ú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

  

  b3n1t0

  csendes tag

  válasz slashing #23946 üzenetére

  [link]

  illetve a kérdés OFF jellege miatt ajánlom a következő fórumot

  Milyen program ami...

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