- Olcsó M.2-es SSD-hűtő érkezett az Arctic logójával
- Milyen egeret válasszak?
- RAM topik
- Ősszel jönnek a Toshiba új, vállalati szegmensbe szánt merevlemezei
- Steam Deck
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- OLED TV topic
- Hobby elektronika
- Apple asztali gépek
Hirdetés
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Egyre izgalmasabb a CMF Phone hátlapja
ma Az új előzetes cserélhető hátlapot sejtet, de valószínűleg csak a dizájnon módosíthatunk, az akkumulátorhoz nem valószínű, hogy hozzáférünk.
-
Ősszel jönnek a Toshiba új, vállalati szegmensbe szánt merevlemezei
ph A kritikus üzleti applikációkhoz gyártott, CMR-es adattárak kétféle interfésszel vásárolhatók majd meg, és 10 TB-ig fedik le az igényeket.
-
PROHARDVER!
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
-
teacherhajni
újonc
válasz Delila_1 #31478 üzenetére
Nagyon szépen köszönöm! Ez kézzel több órás munka volt eddig
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
Dim usor As Long
Dim file As Stringutvonal = "C:\Users\Public\Pictures\Sample Pictures\"
usor = Range("A" & Rows.Count).End(xlUp).RowFor sor = 1 To usor
Kepneve = Cells(sor, "A") & ".jpg"
If Cells(sor, "A") = "" Then GoTo Tovabb
file = Dir(utvonal & Kepneve)
If file = "" Then GoTo Tovabb
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(4).Left
.Top = Rows(sor).Top
.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 120
End With
If Kepneve = "" Then GoTo Tovabb
Rows(sor).RowHeight = 130Tovabb:
Next
End Sub
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Drágább lett a Pixel 8a
- Jövedelem
- Olcsó M.2-es SSD-hűtő érkezett az Arctic logójával
- Aliexpress tapasztalatok
- Samsung Galaxy A54 - türelemjáték
- sziku69: Fűzzük össze a szavakat :)
- Milyen egeret válasszak?
- Kerékpárosok, bringások ide!
- OTP Bank topic
- További aktív témák...
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Cégek számára kedvezmény! Irodai programok: Office, Word, Excel
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig