Hirdetés
- Hivatalos a OnePlus 13 startdátuma
- Netfone
- Milyen okostelefont vegyek?
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Xiaomi 15T Pro - a téma nincs lezárva
- Örömkönnyek és üres kezek a TriFold startjánál
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- iPhone topik
- Samsung Galaxy Watch6 Classic - tekerd!
- Magisk
-
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
-
Lasersailing
senior tag
válasz
Delila_1
#52603
üzenetére
Köszönöm, küzdök továbbra is

Most a gondom az alábbi: (és valószínűleg a háttérbeli ok ugyanaz: nem ismerem a formátumokat excel vba-ban)
Az alábbi függvényrészlet soha nem talál egyezőséget, pedig ránézésre (inputbox alapján) ugyanaz a két érték pl. sm=4-nél (lásd képernyőkép később)
sm = 3
Do
sm = sm + 1
'Loop Until year(right(Sheets(sob).Cells(sm, 1).Value,4)),month(mid(Sheets(sob).Cells(sm, 1).Value,4,2),day(left(Sheets(sob).Cells(sm, 1).Value,2))) = datum
InputBox (Sheets(sob).Cells(sm, 1).Value & Chr(13) & Right(Kiszallitasform.datumok.Value, 2) & "/" & Mid(Kiszallitasform.datumok.Value, 6, 2) & "/" & Left(Kiszallitasform.datumok.Value, 4))
Loop Until Sheets(sob).Cells(sm, 1).Value = Right(Kiszallitasform.datumok.Value, 2) & "/" & Mid(Kiszallitasform.datumok.Value, 6, 2) & "/" & Left(Kiszallitasform.datumok.Value, 4)(A sob sheeten az értékeket összehúzva dátumként kezeli az A oszlop értékeit.)
Egyezőségről képernyőkép:

Mi lehet a gond és főleg mi a megoldás?
kiszallitasform.datumok tulajdonságai:
Új hozzászólás Aktív témák
- Mesébe illő csodakábelt tervezett a GeForce-ok leégése ellen a Segotep?
- Sütés, főzés és konyhai praktikák
- ASZTALI GÉP / ALKATRÉSZ beárazás
- Star Trek
- exHWSW - Értünk mindenhez IS
- Több száz játékban kezdi meg karrierjét az FSR Redstone
- Mikrotik routerek
- Xbox Series X|S
- Sony MILC fényképezőgépcsalád
- Házimozi haladó szinten
- További aktív témák...
- Bomba ár! Lenovo Yoga 460 - i5-G6 I 8GB I 128GB SSD I 14" FHD Touch I HDMI I Cam I W10 I Gari!
- GYÖNYÖRŰ iPhone 12 Mini 128GB Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS3852
- Samsung Galaxy A53 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Azonnali készpénzes nVidia RTX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- Xbox Game Pass Ultimate előfizetések kedvező áron
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi


Fferi50

