- Újabb Samsungok telepíthetik a Galaxy AI-t
- Mindent megtudtunk az új Nokia 3210-ről
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- Bemutatkozott a Moto G32 4G
- Nothing Phone 2a - semmi nem drága
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Poco X6 Pro - ötös alá
- Véroxigénszintet is mér a Honor Band 5
- Vodafone-ra áttért Digi Mobilosok
- Google szolgáltatás (GMS) Huawei telefonokra
Hirdetés
-
iPaden is vége az App Store monopóliumának
ma Ősztől lehet alternatív alkalmazásboltból telepíteni az EU tagállamaiban.
-
Mozgásban az F1 24
gp A Forma 1 versenyek rajongói hamarosan végre belevethetik magukat az idei epizódba.
-
Alacsony fogyasztású, 128 GB-os szervermemóriát kínál a Micron
ph Az új RDIMM TSV technológia alkalmazása nélkül éri el a címben említett tárkapacitást.
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz Pikkolo^^ #32149 üzenetére
Nem látszanak a sor- és oszlopazonosítók a képen.
Modulba tedd a makrót.
Sub Kigyujtes()
Dim sor As Long, oszlop, ide As Long
sor = 3
Do While Cells(sor, "B") <> ""
oszlop = Application.Match(Cells(sor, "C"), Rows(2), 0)
If VarType(oszlop) = vbError Then
MsgBox "Nincs " & Format(Cells(sor, "C"), "yyyy.mm.dd") & " dátum a 2. sorban"
Else
ide = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
Cells(ide, oszlop) = Cells(sor, "B")
End If
sor = sor + 1
Loop
End SubNézd meg a képen, hogy a keresendő dátumokat tartalmazó sor feljebb van, mint a C oszlop első dátuma, ez fontos.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bsasa1
csendes tag
-
Fferi50
őstag
válasz Pikkolo^^ #32160 üzenetére
Szia!
Igen, meg kell nyitnod hozzá a Word alkalmazást az Excel makróban, abba kreálni egy új dokumentumot és az Excel tartalmat belemásolod.
Sub wordos()
Dim wrd As Object, wd As Document
Set wrd = CreateObject("word.application") 'Word nyit
wrd.Visible = True
Set wd = wrd.documents.Add 'új dokumentumot nyit
ActiveSheet.UsedRange.Copy 'kijelölöd a másolandó területet (pl. Range("A1:F25")
wrd.Selection.Paste 'ha képként szeretnéd beilleszteni, akkor PasteSpecial, paraméterekkel HELP segít
wrd.Activate
wd.Save 'itt meg kell adnod, hogy milyen néven mented
wrd.Quit ' Word bezár
End SubFigyelem! A makró futtatása előtt a VBA ablak Tools Menüjében a References menüpontban be kell jelölnöd a megfelelő Microsoft Word könyvtárat!!! (pl. 2016-os nál Microsoft Word 16.0 Object Library).
Üdv.
-
Delila_1
Topikgazda
válasz Pikkolo^^ #32893 üzenetére
Előfordulhat, hogy túl sok adat van a szűrendő oszlopban.
Nem tudom, a magasabb verziókban hány sor a határ, a 2003-as verzióban 1000 sorig volt biztonságos a szűrés. Az alatta lévő sorokat megmutatta szűrés nélkül.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Pikkolo^^ #32918 üzenetére
Megnéztem, mindkét lapon emelkedő sorrendben vannak az adatok a feltöltött fájlban.
Ha a saját fájlodra vonatkozik az össze-vissza, akkor 1 kattintással rendezheted.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
sztanozs
veterán
válasz Pikkolo^^ #34846 üzenetére
Sorok között vannak üres cellák, vagy csak az elején és/vagy végén?
HA csak az elején, végén van, akkor könnyen megoldható egy NamedRange-vel, ha közte is van, akkor viszont kell (legalább) egy segédoszlop is.[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
válasz Pikkolo^^ #34846 üzenetére
Kifutottam a szerkesztésből - bonyolultabb (segédoszlopos) megoldás:
1) Sárga terület TEXT formtumra konvertálása, utána szabadon tölthető (sajnos a lenti formula nem kezeli jól a szám és dátum formátumoú adatokat). B1 kötelezően üres marad.2) Zöld első mezőbe (B2) a következő Array formula kell (CTRL+ENTER - rel kell bevinni):
=IFERROR(INDEX($A$2:$A$11,MATCH(0,COUNTIF($A$2:$A$11,"<"&$A$2:$A$11)-SUM(COUNTIF($B$1:B1,$A$2:$A$11)),0)),"")
3) Első zöld mezőt lehúzni a sárga aljáig
4) A következő Named Range felvétele (itt pl. Validation névvel):
=OFFSET(Sheet1!$B$2,0,0,COUNTIF(Sheet1!$B$2:$B$11,">'"),1)
5) Validáláshoz a fenti Named Range behivatkozása:
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Delila_1
Topikgazda
-
-
Delila_1
Topikgazda
-
Pikkolo^^
addikt
-
Delila_1
Topikgazda
Új hozzászólás Aktív témák
- Kerékpárosok, bringások ide!
- Újabb Samsungok telepíthetik a Galaxy AI-t
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- Mindent megtudtunk az új Nokia 3210-ről
- Milyen billentyűzetet vegyek?
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- nVidia tulajok OFF topikja
- Vezetékes FÜLhallgatók
- Léghűtés topik
- Érkezik Magyarországa az LG szuper dizájnos hordozható projektora
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest