Szívesen.

Figyelted, hogy a változók deklarálását kiegészítettem? Egyrészt nem szerepelt mindegyik a Dim sorban, másrészt a
Dim i, j As Long
sor az i változónak variantként foglal helyet a memóriában, aminek nagyobb a helyszükséglete, mint a Long-é. Mindegyiknél külön meg kell határozni a típust.
Érdemes a VBE-ben megadni, hogy tegye kötelezővé a változók deklarálását. A Tools | Option | Editor fülön jelöld be a Require Variable Declaration opciót. Ennek hatására minden újonnan megnyitott mudul tetején megjelenik az Option Explicit szöveg. Ha a modulban le nem foglalt változót használsz, a makró az indításakor jelez, és megáll. Így elkerülhető, hogy egy elírt karakter hatására fals eredményt kapj, aminek az okát keresgélheted.

Például a makródban van két sor:

Xsum = WorksheetFunction.Sum(Arraytest)
Cells(lRow + 2, j).Value = Xsum

Ha a 2. sorban véletlenül Xszum-ot íratsz be a megadott helyre, csodálkozhatsz, hogy minden esetben 0 értéket kapsz.

Jó reggelt!

Mit szólsz a következő, pórias eljáráshoz?
A Ctrl-t nyomva tartod, közben a Bevitel fület jobbra húzod. Ez másolatot készít a lapról, aminek a Bevitel(2) nevet adja. Most már csak át kell nevezned az új lapot, és elrejtened az A oszlopot.

Üdv, Kati

Szia!

Így elég nehéz segíteni. Tegyél fel egy füzetet mintaként, minden lapon pár sor adattal, amik lehetnek hamisak. Az viszont lényeges, hogy az egyes oszlopok a valódi füzetedben lévő típusokkal egyezzenek meg. Ott legyen a mintában dátum, szöveg, számérték, ahol az eredetiben.

Kati

Szívesen. 🙂

Szia Móni!

Hol maradt a csatolt fájl?

üdv,
Kati

Ctrl+
A megjelenő párbeszéd ablakban 4 választási lehetőséget találsz. A Ctrl- -ra cellák törlésére van lehetőséged.

Az Excelben makró segítségével kétfelé választod a szöveget. A két részt viszed át a Wordbe egymás mellé, és ott formázod a mezőt félkövérre, ill. dőltre.
A példában a szövegek az A oszlopban vannak, ezeket teszi át a makró a stílus alapján a B és C oszlopba.

Sub Felkover_Dolt()
    Dim sor As Long, betu As Integer, usor As Long, szoveg As String
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    For sor = 2 To usor
        szoveg = Range("A" & sor)
        For betu = 1 To Len(szoveg)
            If Range("A" & sor).Characters(Start:=betu, Length:=1).Font.FontStyle = "Dőlt" Then
                Range("B" & sor) = Left(szoveg, betu - 1)
                Range("C" & sor) = Mid(szoveg, betu, 100)
                Exit For
            End If
        Next
    Next
End Sub

Szia!

Épp a napokban készítettem egy ilyen célú táblázatot. Csatolom.

Üdv,
Kati

A1-ben van a szöveged?
Lehet, hogy eltérő verziókat használunk. Nézz szét a függvényeid között, ott is a Szöveg kategóriában.

Az átírást megelőző képletet másolhatod lefelé.
Az első sorban az A1:J1 tartományt figyeli, a másodikban az A2:J2-t.

Szívesen. 🙂

Szia!

Vegyük, hogy a számok az A oszlopban vannak, A1-től kezdve. A B1 képlete: =HA(INT(A1)=A1;A1;A1*1000)
Ezt lemásolod végig a számok mellé, és már összegezheted is.

Üdv, Delila

Szívesen.
Villámgyors vagy!

Valamikor régen kaptam a lenti makrót, amit ha a füzeted ThisWorkbook lapjához rendelsz, a füzeted minden lapján célkeresztbe teszi a kiválasztott cellát. 1 lap moduljába bemásolva csak azon a lapon működik.
Próbáld ki egy üres füzetben, és ha megfelel, alkalmazhatod a „cél” füzetben.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Cells.FormatConditions.Delete
    With Target
        With .EntireRow
            .FormatConditions.Add Type:=xlExpression, Formula1:="1"
            With .FormatConditions(1)
                With .Borders(xlTop)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                With .Borders(xlBottom)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                .Interior.ColorIndex = 20
            End With
        End With
        With .EntireColumn
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="1"
            With .FormatConditions(1)
                With .Borders(xlLeft)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                With .Borders(xlRight)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                    .Interior.ColorIndex = 20
                End With
        End With

        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="1"
        .FormatConditions(1).Interior.ColorIndex = 36
    End With
End Sub

Szia!

Mivel egy cellából kell kiolvasni a dátumot, a cella címét kell megadnod forrásként.
A dátumokat az Excel egész számokként értelmezi. A mai dátumot – 2020.02.04-et – 43865-ként tárolja. Ahhoz, hogy a fájlnévben dátum formában jelenjen meg, meg kell adnod a megjelenítendő formátumot.

Sub Mentes_pdf()
    Dim Ajanlat As String
    With ActiveSheet
        Ajanlat = ActiveWorkbook.Path & "\" & .Name & "_" & Format(Range("A2"), "yyyy-mm-dd") & ".pdf"
        
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ajanlat, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

Kati

Egyszerű és nagyszerű!

Egyszerűsítettem a feltételes formázásokon, nincs szükség az összefűzésekre. Kapcsos zárójellel jeleztem az egyes táblázatokat, amikre azonos formázást adtam. A harmadik tábla két felének formázása önálló, nem az első kettő szerint színeztem.
Az egyes táblákba beállva a Kezdőlap | Stílusok | Feltételes formázás | Szabályok kezelése menüpontban látszanak a megadott formátumok, mindegyik tartományhoz kettőt adtam meg. Mivel nem látszanak a teljes képletek, az egyiket kiválasztod, majd a Szabály szerkesztése gombbal láthatóvá teszed a teljes képletet.

Az összefűzés a két első táblázat feltételes formázásához kellett. Később a 3. táblázatnál másképp oldottam meg, amit be lehet vezetni az első kettőnél is.
A 3. táblázat adatait behivatkoztam az első kettőből. Az L4 cellára állva láthatod.

Kijelöltem az L4:N21 tartományt, és a feltételes formázásnál megadtam az egyik képletet, színeztem, majd ugyanerre a tartományra megadtam a 2. feltételt, és formáztam.
Az O4:Q21 tartománynál szintén kétféle formázást adtam meg, szintén képletekkel.

Szia!

Nem kell színezgetni, egyszerűbb megoldás is van. Nézd meg a csatolmányt.

A két szélső érték legyen 0 és 54.

Private Sub SpinButton1_Change()
    If SpinButton1.Value = 0 Then SpinButton1.Value = 53
    If SpinButton1.Value = 54 Then SpinButton1.Value = 1
End Sub

Szívesen.

Szia!
Nézd a mellékelt képet!
Üdv,
Kati

Szívesen.

Sajnos nem azonos mennyiség van az egyes típusokból, így nem lehet azonos képletet írni rájuk.
Írtam viszont egy makrót, ami megoldja a problémádat.
Az első lapról készítettem egy másolatot, ahol a Rendezés gombra kattintva elkészül az általad kívánt forma.
Tömörítem a fájlt, mert makrót tartalmazót másképp nem fogad el a fórummotor.

Szia!

Ha a címet középre akarod tenni, érdemes az A oszlopba írni, majd az A1:D1 tartományt kijelölve Cellaformázás, Igazítás fül, Vízszintesen A kijelölés közepére.
Nézd meg az A2 képletét, amit lemásoltam A4-ig. Az A6-ban változik a hivatkozás, majd az A10-ben ismét

Más nyelven beszélnek az Exceleink. Vessző az angolban kell, ott viszont az FKERES helyett a VLOOKUP használandó. Nem tudom, hogy jött össze nálad a kétféle nyelv.

Esetleg áthelyezted az A1:B4 cellák tartalmát?

Meg lehet oldani egymásba ágyazott ciklusokkal, de nem érdemes. Kevés az előállítandó szám, sok időbe kerül, míg mind az 5 szám eltérő lesz.

Ott választásról volt szó, nem sorsolásról

Mekkora számok kellenek, és mi az elrendezés?
A nevek esetleg külön-külön lapon vannak, vagy mindegyik egymás alatt valamelyik oszlopban 1 lapon? A kigyűjtés 1 lapra, vagy esetleg mindenkinek a saját lapjára történjen?

Pardon, csak becsomagolva lehet csatolni a makrós füzetet.

Szia!

A lapon, ahova beviszed az értékeket, az A:D oszlop ne legyen zárolt. Védd le a lapot. Nálam a „SzuperTitkosJelszó”-védi a lapot.
Másold be a makrót egy modulba, majd tegyél ki hozzá egy gombot. Az aktuális sor A:D tartományát másolja a Munka2 lap első üres sorába. Ha van, ha nincs fejléc a Munka2-n, az első másolat a 2. sorba kerül (üres lap esetén).
Másolás után a kiinduló munkalap kitöltött sora nem írható felül, zároltak lesznek a cellák.

Sub Masolas()
    Dim ide As Long
    
    ActiveSheet.Protect Password:="SzuperTitkosJelszó", UserInterfaceOnly:=True
    ide = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1

    Range("A" & Selection.Row & ":D" & Selection.Row).Copy _
        Sheets("Munka2").Range("A" & ide)
    Range("A" & Selection.Row & ":D" & Selection.Row).Locked = True
End Sub

Szívesen. 🙂

Erre gondoltál?

Kicsit rövidebbre vettem a Munka2!A4 cella képletét, ami alapján a többit is módosíthatod. A feltételnél nincs szükség a HAHIBA függvényre.

=HA(INDEX(Táblázat1;HOL.VAN($H$1;Munka1!$L:$L;0)-1;OSZLOP()+2)=0;"";HAHIBA(INDEX(Táblázat1;HOL.VAN($H$1;Munka1!$L:$L;0)-1;OSZLOP()+2);""))

Az ÜRES függvényt Te juttattad eszembe.
Elég kacifántosra sikerült, hátha kapsz egyszerűbb megoldást. Az ilyen tengerikígyó képlettel az a baj, hogy egy újabb igény esetén nehéz követni.
Sok szerencsét hozzá!

Több változat készült, és közben az idő is szépen telt.
Fel kellene tenned a jelenlegi változatot, hogy kiderüljön, hol állsz most.

Egy üres oszlopban végig viszed a lenti képletet, majd ezt összegzed a SZUM függvénnyel.
=HA(HÉT.NAPJA(A6;2)<5;9;HA(HÉT.NAPJA(A6;2)=5;6;0))

Nálam a makrót tartalmazó fájl az F:\Otthoni\macros mappában van. A makró indításakor az a mappa nyílik meg, amit az Excel beállításakor a Mentés menüpontban a Helyi fájlok alapértelmezett helye rovatban megadtam. Az adataimat, fájljaimat soha nem mentem a C meghajtóra. A Te feladatodhoz F:\Otthoni\macros\Checklista fát készítettem, ezen belül vannak az évek – jelenleg csak egy, 2019.
Megnyílik a FileDialog, kiválasztom a megfelelőt, ezzel el is mentettem.

Sub Pdf_mentes()
    Dim utvonal As String, FD, FN As String
    
    Sheets("Munka2").Select
    Set FD = Application.FileDialog(4)  'mappa választás
    With FD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "Nem választottál útvonalat, befejezzük.", vbInformation, "Értesítés"
            Exit Sub
        Else
            utvonal = .SelectedItems(1) & "\"
        End If
    End With
    
    FN = "Csekklista " & Format(Range("L1"), "yyyy.mm.dd hh_mm") & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=utvonal & FN, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

A kettőspontot nem lehet a fájlnévbe írni, marad az alsó kötőjel.
Csatolom az újabb verziót.

Nagyon jó, hogy foglalkoztál vele, mert amiket a kutatásod közben megtanultál, az fixen megmarad az emlékezetedben.
Két képlethez újabb magyarázatot írtam, remélem, érthetően.

Jó reggelt!

Azt írtam, hogy mikor egy új sor utolsó adatát – a C mérést – beviszed, akkor végzi el a makró a feladatot.
Átalakítottam a füzetet makrók nélkülire. Ezzel csak az a baj, hogy nem végzi el a pdf-be mentést, de legalább tudom csatolni.

Hol maradt a csatolás?

Újabban a data.hu sem fogadja az xlsm kiterjesztésű fájlokat. Bemásolom ide a makróját.

Sub Nyomtatas()
    Dim uzlet, sor As Integer, db, kimeno As String, x As Integer, oszlop As Integer
    Dim hol, szam As Integer, ide As Integer
    
    Sheets("Nyomtatandó").Select
    
    sor = 2
    Do While Sheets("Munka1").Cells(sor, "A") <> ""
        Range("A:C").ClearContents
        uzlet = Sheets("Munka1").Cells(sor, "A")
        hol = Application.Match(uzlet, Sheets("Munka2").Columns(1), 0)
        kimeno = Sheets("Munka2").Cells(hol, 2)
        If Sheets("Munka1").Cells(sor, "B") <> "" Then
            hol = Application.Match(uzlet, Sheets("Munka1").Columns(1), 0)
            db = Application.WorksheetFunction.RoundUp(Sheets("Munka1").Cells(hol, 2) / 3, 0)
            szam = 1: ide = 1
            Do While szam <= db
                For oszlop = 1 To 3
                    Cells(ide, oszlop) = "Üzlet száma: " & uzlet & vbLf & "Kimenő sor: " & kimeno _
                        & vbLf & Format(Date, "yyyy.mm.dd")
                Next
                ide = ide + 1
                szam = szam + 1
            Loop
                
            Range("A1").CurrentRegion.Select
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

        End If
        sor = sor + 1
    Loop
End Sub

• A hozzászólás módosításra került: 4 years, 6 months telt el-delila.

Itt az automatikus javításhoz beírt szavakat lehet javíttatni. Pl. a hogz beírása után kijavítja hogy-ra.

Nem egészen ide tartozik, de érdemes rövidítéseket bevinni. Egy alkalommal sokszor kellett (volna) leírnom egy táblázatba a zöld/sárga vezeték kifejezést. A Módosítandó rovatba beírtam a zs-t (fontos, hogy ne legyen értelmes szó), a Jó szöveghez pedig a hosszú szöveget. Ebből kisebb galiba lett, mert a fájlt átadtam valakinek, és mint kiderült, vitte a kibővített szótárat magával. Mikor be akart írni rövidítve az egy nevet, Molnár Zsigmondot (Molnár Zs), Molnár zöld/sárga vezeték lett belőle. 🙂

Megoldás lehet a KEREKÍTÉS függvény.

=KEREKÍTÉS(SZUM(D2:D6462);0)

Természetesen nem hasonlítottam össze a 644 cella adatait. Szűrtem a nem nulla, és nem 1,15961E-11 értékre, Kijelöltem a látható cellákat, mire a státuszsorban megjelent az összegük. Ez megegyezett a SZUM-os cella értékével.

If Target.HasFormula = False Then ActiveCell.Value=ActiveCell.Value 'nem képlet

Szia!

Másképp oldanám meg. A Névkezelőben új nevet vettem fel, a neve Képlet. A Hivatkozás rovatba írtam a képletet, ami az egyszerűség kedvéért egy szorzás. Ezt adtam meg a C1-ben állva. A C oszlopban =Képlet szerepel, ami összeszorozza az azonos sor A és B celláját. Nézd meg a H oszlopban állva a Névkezelő Képlet-ét, ott már az F és G cellákat szorozza össze, vagyis a tőle balra szereplő két oszlop tagjait.
Most a Névkezelőben írd át a szorzást pl. összegzésre, és csodálkozz rá az eredményre a csatolt fájlban.
Nem kell kijelölgetned és másolgatnod.

Üd, Kati

• A hozzászólás módosításra került: 4 years, 7 months telt el-delila.

Keress rá ilyesmire: eseménykezelés, excel, vba. Jobban jársz, mintha én próbálnám elmagyarázni.