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

• #45521 Fferi50 Topikgazda daddy9 #45520

  Új Válasz 2020-12-08 09:45:09 #45521

  Ú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

  

  Fferi50

  Topikgazda

  válasz daddy9 #45520 üzenetére

  Szia!
  Először a második kérdésedre a válasz:
  "egy Modulban megírt SUB-ot (vagy Function-s) hogyan tudok "meghívni" a Userform egy gombjával?"
  Ha általános modulban vannak az eljárásaid, akkor egyszerűen az eljárás nevét kell megadnod, de használhatod a Modulnév.Eljárásnév formát is.
  sub Gomb_click
eljárásnév
end sub
  A fentiekből következik, hogy nem kell a Userform kódlapjára átmásolnod a modulokban levő eljárásokat, ha használni szeretnéd azokat.
  Egyébként mit jelent az, hogy nem látja a SUB a bemásolt Function-t? Mi a hibaüzenet?
  Üdv.

• #42957 Delila_1 veterán daddy9 #42956

  Új Válasz 2020-02-04 12:56:43 #42957

  Ú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 daddy9 #42956 üzenetére

  ÜRES 36. sornál ellenőriztem, minden beírásnál felfedi a következő oszlopot.
  A felfedős sor alá még beírhatsz egy újat

  Cells(36, Target.Column + 1).Activate

  akkor be is áll a következő kitöltendő cellába.

• #42955 Delila_1 veterán daddy9 #42954

  Új Válasz 2020-02-04 12:32:41 #42955

  Ú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 daddy9 #42954 üzenetére

  Ne kombináld, az első helyett írd be a másikat.

• #42951 Delila_1 veterán daddy9 #42950

  Új Válasz 2020-02-04 11:22:00 #42951

  Ú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 daddy9 #42950 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 36 And Target.Column > 4 And Target.Column < 28 Then
If Target > "" Then Columns(Target.Column + 1).EntireColumn.Hidden = False
End If
End Sub

• #42949 Delila_1 veterán daddy9 #42948

  Új Válasz 2020-02-04 11:00:17 #42949

  Ú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 daddy9 #42948 üzenetére

  A tiédben sem volt.
  Az aktuális oszloptól BALRA lévőt fedte fel, amit az előző lépésben elrejtettél, ha éppen üres volt a 36. sor az oszlopban.
  A második feltétel abszolút felesleges volt. Azt vizsgálta, hogy az aktuális oszloptól balra lévőben van-e adat, és ha igen, felfedte, de mivel az előző ciklusban nem rejtette el, hiszen nem volt üres, semmi szükség erre a sorra a makróban.
  Mi az, hogy nyisson új oszlopot? Szúrjon be az aktuális oszloptól balra egyet? Melyik esetben? Ha az aktuális üres, vagy nem?

• #42947 Delila_1 veterán daddy9 #42944

  Új Válasz 2020-02-04 10:44:33 #42947

  Ú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 daddy9 #42944 üzenetére

  Ezt a makrót modulba kellene tenni, nem eseményvezéreltbe. Bár így is jó, bármelyik cellára kattintasz, lefut.
  Modulba:

  Sub Rejt()
Dim LastColumn, i As Integer
Application.ScreenUpdating = False

LastColumn = 27 'Last Column
For i = 5 To LastColumn 'Lopping through each Column
If Cells(36, i) = "" Then
Columns(i).EntireColumn.Hidden = True
Else
Columns(i).EntireColumn.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub

• #42798 Delila_1 veterán daddy9 #42797

  Új Válasz 2020-01-22 16:03:01 #42798

  Ú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 daddy9 #42797 üzenetére

  Az előző (42796) hsz-be utólag írtam egy sort. Az első lapra vonatkozik.

• #42796 Delila_1 veterán daddy9 #42795

  Új Válasz 2020-01-22 15:55:14 #42796

  Ú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 daddy9 #42795 üzenetére

  Sebaj! Másold be a makrót a saját füzetedbe, modulba, xlsm-be kell menteni.
  A Te füzetedbe írtam a makrót, de már több teszt című fájlom van, ezért más néven mentettem.
  Az A25-be 2, A26-ba 3, A27-be 4-et írj.

• #42793 Delila_1 veterán daddy9 #42792

  Új Válasz 2020-01-22 15:13:08 #42793

  Ú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 daddy9 #42792 üzenetére

  Nem törölted ki véletlenül a C25: C27 sorszámait?

• #42791 Delila_1 veterán daddy9 #42788

  Új Válasz 2020-01-22 14:05:07 #42791

  Ú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 daddy9 #42788 üzenetére

  Közben megadtad a választ arra, hogy ki mikor milyen oklevelet kap. Itt a módosított makró:

  Sub Pdf()
Dim sor As Integer, oszlop As Integer, utvonal As String, FN As String

Application.ScreenUpdating = False
oszlop = 3
Do While Cells(4, oszlop) <> ""
utvonal = Cells(24, oszlop)

If Cells(7, oszlop) = "fiú" Then sor = 25 Else sor = 26
FN = Cells(sor, oszlop)


Sheets(Cells(sor, 1)).Select 'lapra állás
With Sheets("Adatbekérő")
Range("A7") = .Cells(6, oszlop) & ", " & .Cells(5, oszlop)
Range("A13") = .Cells(8, oszlop)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=utvonal & FN, _
Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=False

If .Cells(9, oszlop) = "Ügyes" Then
Sheets(.Cells(sor + 1, 1)).Select 'lapra állás
If .Cells(7, oszlop) = "fiú" Then sor = sor + 2 Else sor = sor + 1
FN = .Cells(sor, oszlop)
Range("A7") = .Cells(6, oszlop) & ", " & .Cells(5, oszlop)
Range("A13") = .Cells(8, oszlop)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=utvonal & FN, _
Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
End With

Sheets("Adatbekérő").Select
oszlop = oszlop + 1
Loop

Application.ScreenUpdating = True
MsgBox "Az oklevelek el vannak mentve", vbInformation
End Sub

• #42790 Delila_1 veterán daddy9 #42785

  Új Válasz 2020-01-22 13:58:39 #42790

  Ú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 daddy9 #42785 üzenetére

  Megírtam rá egy makrót. Mivel nem tudom, milyen alapon dől el, hogy ki melyik oklevelekből kap, a saját elképzelésem alapján döntöttem.
  [link]

• #42789 sztanozs veterán daddy9 #42788

  Új Válasz 2020-01-22 13:51:12 #42789

  Ú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 daddy9 #42788 üzenetére

  Akármennyi féle adat beleadható, ha a template azonos. Sajna Google docs melóhelyen nem jön be, nem tudom mi van az excelben...

• #42787 Delila_1 veterán daddy9 #42785

  Új Válasz 2020-01-22 12:52:48 #42787

  Ú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 daddy9 #42785 üzenetére

  Max 2 féle oklevelet írsz, de 3 féle van a 25-27 sorokban. Mi alapján döntöd el, hogy a 3 féle alapján ki melyike(ke)t kapja?

• #42786 sztanozs veterán daddy9 #42785

  Új Válasz 2020-01-22 12:32:51 #42786

  Ú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 daddy9 #42785 üzenetére

  Szerintem erre a Word körlevél bőven elég, nem kell makró, meg ilyenek:
  https://support.office.com/hu-hu/article/k%C3%B6rlev%C3%A9l-funkci%C3%B3-haszn%C3%A1lata-a-t%C3%B6meges-e-mailhez-levelekhez-c%C3%ADmk%C3%A9khez-%C3%A9s-bor%C3%ADt%C3%A9kokhoz-f488ed5b-b849-4c11-9cff-932c49474705

• #33573 Fferi50 Topikgazda daddy9 #33572

  Új Válasz 2017-01-04 07:51:58 #33573

  Ú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

  

  Fferi50

  Topikgazda

  válasz daddy9 #33572 üzenetére

  Szia!

  Pl.

  If IsEmpty(Range("B" & iCntr)) Then Exit For' vagy If Range("B" & iCntr).Value="" Then Exit For
Print #1, Range("B" & iCntr)
Next iCntr

  Üdv.

• #33265 Fferi50 Topikgazda daddy9 #33262

  Új Válasz 2016-11-18 17:16:21 #33265

  Ú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

  

  Fferi50

  Topikgazda

  válasz daddy9 #33262 üzenetére

  Szia!

  Az előző hozzászólásomhoz még annyi kiegészítésül: Ha kell a végére a "\", akkor a Helyette függvényt törölni kell az első képletből.

  Üdv.

• #33264 Fferi50 Topikgazda daddy9 #33262

  Új Válasz 2016-11-18 17:08:21 #33264

  Ú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

  

  Fferi50

  Topikgazda

  válasz daddy9 #33262 üzenetére

  Szia!

  Egy "szép" tömbképlet megoldja a problémádat:
  =HELYETTE(JOBB(A1;HOSSZ(A1)-NAGY((KÖZÉP($A$1;SOR($A1:$A50);1)="\")*SOR($A1:$A50);2));"\";"")
  A tömbképletet Ctrl+Shift+Enter billentyű kombóval lehet bevinni, a szerkesztőlécen a képletet kapcsos zárójelbe teszi az Excel maga.

  Ha hosszabb lenne az elérési út mint 50 betű, akkor a $A50 helyett írj nagyobb számot. Ha az elérési út végén nincs "\" ,akkor egyszerűbb a képlet (ez is tömbképlet!):
  =JOBB(A1;HOSSZ(A1)-MAX((KÖZÉP($A$1;SOR($A1:$A50);1)="\")*SOR($A1:$A50)))

  Üdv.

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