aki ért az apps script-hez tudna segíteni hogy hogyan kellene
módosítani hogy az A1 cellát ne törölje egyből?

alapból jól működik de ahogy másolatot készítek ebből a lapból
akkor a másolatból egyből ki is törli az A1 cellát amibe nálam a dátum van

function onEdit(e) {
var oldValue;
var newValue;
var ss=SpreadsheetApp.getActiveSpreadsheet();
var activeCell = ss.getActiveCell(); {
newValue=e.value;
oldValue=e.oldValue;
if(!e.value) {
activeCell.setValue("");
}
else {
if (!e.oldValue) {
activeCell.setValue(newValue);
}
else {
activeCell.setValue(oldValue+', '+newValue);
}
}
}
}

Szia,

Ezt próbáld ki:

function onEdit(e) {
var oldValue;
var newValue;

var ss=SpreadsheetApp.getActiveSpreadsheet();
var activeCell = ss.getActiveCell();

newValue=e.value;
oldValue=e.oldValue;

if (oldValue !== undefined && newValue !== undefined) {
activeCell.setValue(oldValue + ', ' + newValue);
}
}

Másolás során mind az oldValue, mind a newValue értéke "undefined". Az undefined pedig false-nak feleltethető meg, ezt tagadva az eredeti kód a 10-es soron fut le, ami törli a cella értékét.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

tökéletes köszi, hogy elmagyaráztad!

egy olyanba akadtam még el hogy
az A1 cellából kiolvasott dátum elnevezze az adott lapot

function onEdit2() {
  var sheet = SpreadsheetApp.getActiveSheet();
  var oldName = sheet.getName();
  var newName = sheet.getRange(1,1).getValue();
  if (newName.toString().length>0 && newName !== oldName) {
    sheet.setName(newName);
  }
}

ami végül is működik de erre nevezi el a lapot, ha nem szöveg a cella
Sun Mar 21 2021 03:00:00 GMT-0400 (keleti államokbeli nyári idő)
ez mitől lehet?

az én tervem 2 cella volt A1 A2 (mert a vasárnapokon kívül minden más napra van egy sheet elvileg van erre is valami szűrő hogy a hét napból a vasárnapot ne mutassa...)
A1 cella: 2021.03.20
A2 cella: =WEEKDAY(A1)
így csak pár számot kellett volna mindig átírogatnom

amire még nem jöttem rá hogy az itt látható (1, 1) - et hogyan kell értelmezni?
var newName = sheet.getRange(1,1).getValue();
ha beírtam az (1, 2 ) akkor kiírta ami a B1 -ben volt
milyen számokat kell beírni oda hogy A1,A2 cellát olvassa?

Sun Mar 21 2021 03:00:00 GMT-0400 (keleti államokbeli nyári idő)
ezt a hosszú részt sikerült megoldanom egy =TEXT -el
A1 cella =TEXT(DATE(2021;3;21);"yyyy.mm.dd dddd")
A2 cella =TEXT(WEEKDAY(A1);" dddd")

mivel arra nem jöttem rá hogy hogyan kellene megoldani hogy az A2
felismerje ezt "yyyy.mm.dd - dddd"
ezért inkább egyesítettem a két cellát
=TEXT(DATE(2021;3;21);"yyyy.mm.dd - dddd")
2021.03.21 - vasárnap
így már tudom használni úgy hogy a már meglévő sheetekből ne csináljon újat..

hogyan kell a vasárnapból nagy kezdőbetűst csinálni?
(az egyéni időformátumoknál is kisbetűvel vannak írva a napok)

Sziasztok!

Van néhány évnyi Excel táblám (külön fájlok, havi bontásban), melyekből egy új táblázatba kellene exportálnom bizonyos sorokat.

Tehát, pl ha az eredeti tábla adott oszlopában lévő adat eltér a nem-től, annak az egész sora kellene hogy menjen az új táblázatba.

Hogyan lehet ezt legegyszerűbben megoldani?

[ Szerkesztve ]

Üdv!
Google táblázatban milyen függvénnyel lehet azt megoldani, hogy
ha A1 cella üres és a mai nap nagyobb mint 2021.03.01. akkor futtassa az email szkriptet.
ez az email szkript:
function sendEmails()
{
var emailAddress = 'valami@gmail.com';
var message = 'üzenet';
var subject = 'tárgy';
MailApp.sendEmail(emailAddress, subject, message);
}

Szia!

Magyarul TNÉV, angolban nem tudom, de makró rögzítésekor PROPER-nek írja.

Közben rájöttem, hogy ahhoz meg kell nyitni a táblázatot, hogy lefusson a függvény. Nekem meg a háttérben kellene működnie naponta egyszer.
A szerkesztőben találtam olyan triggert, hogy naponta fusson le a szkript. Ehhez viszont a szkriptbe kellene betenni a cella és dátum figyelést.
Azt meg lehet oldani?

köszi a PROPER lesz az!
hogyan kell ide beilleszteni?
=TEXT(DATE(2021;3;21);"yyyy.mm.dd - dddd")

[ Szerkesztve ]

Sziasztok!

Van arra lehetőség, hogy egy egyszerű Excel (nem VB-s, nem makrós) legördülő menüben a választható dolgok betűméretét növeljem? Csak mert 100%-os nagyításnál is elég picike marad.

Eddig csak olyan megoldást találtam, ami VB-t igényelt, amit nem szeretnék. Ha az egész táblázatot nagyítoma akkor OK, de én csak a legördülőmenüt szeretném, van-e esetleg olyan beállítás, ahol ezt lehet állítani? 2013-as Excelem van.

Szia!
Próbáltad már az adott cellára állva a cella betűméretét növelni? Utána a cella szélességet is át kell állítanod.
Üdv.

Szia!
Leszűröd az adott oszlopot majd átmásolod az eredményt az új táblába.
Az új munkalapot másold be abba a fájlba, amelyikben az adatod van. Ebben az esetben az Adatok - Speciális (szűrő) alkalmazásával egyből az új helyre másolhatod.
Üdv.

vba és egyéb módosítás nélkül nem lehetséges
még a legújabb office-ba sem

=PROPER(TEXT(DATE(2021;3;21);"yyyy.mm.dd - dddd"))

tökéletes köszönöm!

Szia!
Így néz(het) ki amit javasoltam:

Ha a listát is szeretnéd nagyobb betűvel látni, akkor megpróbálhatsz egy ComboBox-ot beszúrni:

Üdv.

Én is ettől tartottam.

Szia,

A többiek adtak már megoldást a lap elnevezésre.
A .toString() metódus egy dátumon UTC formátumot eredményez. A munkalap függvényes megoldás talán a legegyszerübb.

Az A1:A2-t tartományt így tudod megkapni: getRange("A1:A2") vagy getRange(1,1,2)
Több cella esetén azonban a getValue() helyett getValues()-t kell használni, ami egy 2-dimenziós tömböt ad vissza. Az első sor első oszlopát a [0][0] pozíció tartalmazza, míg a második sor első oszlopát a [1][0]-ban találni.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Szia,

Talán vmi ilyen kell:

function sendEmails() {
var alapDatum = new Date(2021,2,1); // 0-11 a hónapok számozása
var maiDatum = new Date();

var ss=SpreadsheetApp.getActiveSpreadsheet();
var cellaA1 = ss.getRange("A1").getValue();

if (cellaA1.length == 0 && maiDatum > alapDatum) {
var emailAddress = 'valami@gmail.com';
var message = 'üzenet';
var subject = 'tárgy';
MailApp.sendEmail(emailAddress, subject, message);
}
}

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Köszönöm, tökéletes.

Sziasztok!

Excelben hogy hasonlítunk dátumot számmal?
A1-be beírom, hogy 2021, szám formátumban.
B1-be azt, hogy 2021.04.04 dátumként.
C1-be meg =HA(A1 = ÉV(B1), valami, valami)
De ez így nem lesz igaz.

If you chase two rabbits you will lose them both.

Szia!
Miért ne lenne jó? Szerintem ezt így kell hasonlítani.
Üdv.

Nálam ez a képlet jól működik

Bámulatos hol tart már a tudomány!

Furcsa nálam nem. Annak ellenére, hogy próbáltam már átrakni szám sőt dátum formátumra is a mezőt, összehasonlításnál még mindig 2021 = "2021".
Pedig elvileg még a szövegként kezelt számot is képesnek kéne lennie összehasonlítani. De valamiért HAMIS az eredmény.

If you chase two rabbits you will lose them both.

Nezd meg képlet vizsgálóval néha segít hogy mi a probléma

Bámulatos hol tart már a tudomány!

Szia!
Az A1 formátuma biztosan szám? Mert szerintem az ÉV(B1) nem lehet szöveg. Bár amit eredménynek írtál, az izgalmasan "hangzik".
Képletvizsgáló valószínűleg segít.
Üdv.

Azzal nézem. Onnan jöttem rá, hogy "2021" és nem 2021 a szám mező.

If you chase two rabbits you will lose them both.

Oké, most néztem, hogy amúgy kis sárga ikonnal jelzi, hogy a szám szövegként van formázva, vagy aposztróffal kezdődik. Na most ha itt rákattintok, hogy átalakítás számmá, akkor működik.
De kérdem én, ha egyszer cellaformázással az egész tartományt átrakom szám formátumba, akkor miért marad szöveg?

If you chase two rabbits you will lose them both.

köszi így már értem!

getRange("A1:A2") ebben a formában nem működött
mert ezt próbáltam egyből

Van egy hatalmas excel táblám, ami tele van valami nemlátható, örökölt szeméttel. Van valami mód, hogy a szövegen és formátumon kívül mindent töröljek, a másolás-érték beillesztésen kívül?

Szia!
" tele van valami nemlátható, örökölt szeméttel. "
Erre az esetre sajnos nem jó még a másolás - beillesztés értékként sem, mivel ugyanúgy visszamásolja a "szemetet", a nem látható karaktereket is.
Próbáld meg a TISZTÍT függvényt, egy másik munkalapra másolva az értékeket:
=TISZTÍT(Munka1!A1)
Ez húzható oldalra és lefelé is.
Utána ezen a munkalapon másolás- irányított beillesztés értékként.
Talán segíthet.
Üdv.

Sziasztok !

Munkaidő összegzéshez szeretnék egy cellát ami összeszámolja a dolgokat. Tudtok olyan függvényt amivel nem manuálisan kellene beírni a lapok -at ? Jelenleg így írogatom egymás mögé
-COUNTIF('W12'!C8:I8;"sz")-COUNTIF('W13'!C8:I8;"sz")

ha jól látom akkor a lapok neveiben csak a számozás az eltérő akkor használd az indirekt függvényt ebből kiindulva lehet vmit összehozni

Bámulatos hol tart már a tudomány!

Sziasztok,

Segítségeteket szeretném kérni. Lenne egy több száz soros táblázatom. Az első oszlopban vannak telephelyek, a második oszlopban vannak a telephelyhez tartozó szállítók(egy telephez 2 szállító tartozik), harmadik oszlopban van egy arány ami az adott telepn megbontja a hozzá tartozó szállítót. Negyedik oszlopban a szállító túranap. A túranap nem változik addig amíg el nem ér az utolsó telepig(pl. kedd). A lényeg annyi lenne, hogy van olyan szállító amelyik pl. kedden nem szállít az adott telepre. Ebben az esetben ennek a szállítónak az aránya adott telephelyre 0%, de a másik szállítónak viszont 100% kellene. Ha viszont van mind a kettőnek túrája akkor marad az eredeti arány.

Lenne valami ötletetek erre, hogy makró nélkül hogyan lehetne megoldani?

Minta tábla:

[ Szerkesztve ]

Vmi nem kerek, mert ahhoz hogy 100% írjon be vmi függvény ahhoz tudni kell az arányt, de ha már tudom az arányt akkor csak azt kell másolni így nincs értelme egy bonyolult függvénynek.
Mert a példában is ott az 50-50% de mégis az egyik 0 a másik 100% így semmilyen függvény nincs amivel megoldhato

[ Szerkesztve ]

Bámulatos hol tart már a tudomány!

Az alap arányokat azt tudom, de nem szeretném végigírni annak függvényében, hogy melyik nap van. A minta táblában az arány oszlopom pl. hétfőre vonatkozik. Keddi napon szeretném ha a túra arányt adná meg. A túra arányt most én töltöttem ki úgy ahogy működnie kellene. Elnézést ezt kifelejtettem és nem írtam le. Tehát ha van túranap mind a 2 szállítónak akkor megtartja az eredeti arányt ha nincs akkor annál a szállítónál lesz 100% amelyiknek van túranapja a másik az 0%

[ Szerkesztve ]

A királynét megölni nem kell félnetek jó lesz ha mindenki egyetért én nem ellenzem.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!

Esetleg el tudnátok magyarázni nekem mit jelentenek ezek, hogy kellene kezelnem őket?

1. Ez asszem amiatt lesz, mert másolgatok másik fájlokat kiindulópontnak.

A munkafüzet egy vagy több külső forrásra mutató hivatkozást tartalmaz. Ezek a források esetleg nem biztonságosak.
Ha megbízok a forrásokban, frissítse a hivatkozásokat a legújabb adatok beolvasásához. Egyébként tovább dolgozhat a meglévő adatokkal.
Frissítés/Nincs frissítés/Súgó

2. Ez akkor keletkezik, amikor másolok cellákat másik fájlból. Igen szoktam rá mondani, de nem értem mi ez

A(z) prior név már létezik. A név azon változatának használatához kattintson az Igen gombra, vagy kattintson a Nem gombra a(z) prior áthelyett vagy másolt változatának átnevezéséhez.
Igen/Nem

we all deserve a bit of luck.

Sziasztok, lenne egy olyan kérdésem, hoyg van egy excel fájl fent a google drive-ban amit valamikor itthonról használok a win10 excel 365-tel és van mikor a munkahelyem, win7 excel 2010-zel.
A gondom annyi, hogy itthonról simán megnyitom rámentek bármi, viszont a munkahelyemen ha megnyitom a fájl és próbálok rámenteni akkor megosztásütközéssel nem engedi 10-ből 9x.
Nem tudom mi lehet a probléma pontosan, de ha valakinek lenne rá ötlete kérem árulja el. Jelenleg úgy tudom hazsnálni a fájlt, hogy elmentem más néven amit leszinkronizálva megtudok otthonról is nyitni, de így egy év távlatából már kezd kicsit macerás lenni.
Köszönöm

Szia,

B oszlopban lévő képletet látod a C oszlopban:
(Nálam W01-en van két "sz", W02 üres, a többi meg nem létezik, azért ad rá hibát)

Ezt megcsinálnám az adott sheeten végig (A oszlop: W01-W52, B oszlopba a képlet amit a C2-ben látsz), majd Szumma B1 : B52 megadja a számot amit keresel. (ill. egy minusz nálam kimaradt)

Üdv.

Sziasztok! Szeretnék egy Excel fájlból ahol az "A" oszlopban több száz pdf link van letöltést csinálni egy adott könyvtárba. Több példát is néztem de nem jön össze.
Lehet az a hiba hogy https-ről kellene tölteni?
Annyit csinál csak hogy a "C" oszlopba a "Unable to download the file" szöveget teszi minden fájl mellé.
Option Explicit

#If VBA7 And Win64 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As LongPtr, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As LongPtr, _
ByVal lpfnCB As LongPtr _
) As Long
Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" _
Alias "DeleteUrlCacheEntryA" ( _
ByVal lpszUrlName As String _
) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) As Long
Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" _
Alias "DeleteUrlCacheEntryA" ( _
ByVal lpszUrlName As String _
) As Long
#End If

Public Const ERROR_SUCCESS As Long = 0
Public Const BINDF_GETNEWESTVERSION As Long = &H10
Public Const INTERNET_FLAG_RELOAD As Long = &H80000000
Public Const folderName As String = "c:\temp\"

Sub downloadImages()
Dim i As Long, ret As Long, sWAN As String, sLAN As String

With Worksheets("Munka1")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
sLAN = folderName & .Cells(i, 1).Value & ".pdf"
sWAN = .Cells(i, 2).Value
ret = URLDownloadToFile(0&, sWAN, sLAN, BINDF_GETNEWESTVERSION, 0&)

If ret = 0 Then
.Cells(i, 3) = "File successfully downloaded"
Else
.Cells(i, 3) = "Unable to download the file"
End If
Next i
End With

End Sub

[ Szerkesztve ]

Ha valakinek kellene. A cellatartalom hyperlink kell, hogy legyen (ez nálam hiba volt), mivel több száz F2+entert nem akartam nyomogatni ezért van ez a script. Ez minden cella adatból hyperlinket csinál.
Sub HyperAdd()
'Converts each text hyperlink selected into a working hyperlink

Dim xCell As Range

For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell
End Sub
majd ez a script meg letölti egy adott könyvtárba
Const TargetFolder = "C:\temp\"
#If VBA7 And Win64 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As LongPtr, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As LongPtr, _
ByVal lpfnCB As LongPtr _
) As Long
Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" _
Alias "DeleteUrlCacheEntryA" ( _
ByVal lpszUrlName As String _
) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) As Long
Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" _
Alias "DeleteUrlCacheEntryA" ( _
ByVal lpszUrlName As String _
) As Long
#End If

Public Const ERROR_SUCCESS As Long = 0
Public Const BINDF_GETNEWESTVERSION As Long = &H10
Public Const INTERNET_FLAG_RELOAD As Long = &H80000000
Public Const folderName As String = "c:\temp\"

Sub MyFileDownload()
For Each Hyperlink In ActiveSheet.Hyperlinks
For N = Len(Hyperlink.Address) To 1 Step -1
If Mid(Hyperlink.Address, N, 1) <> "/" Then
LocalFileName = Mid(Hyperlink.Address, N, 1) & LocalFileName
Else
Exit For
End If
Next N
Call HTTPDownloadFile(Hyperlink.Address, TargetFolder & LocalFileName)
LocalFileName = “”
Next Hyperlink

End Sub

Sub HTTPDownloadFile(ByVal URL As String, ByVal LocalFileName As String)
Dim Res As Long
On Error Resume Next
Kill LocalFileName
On Error GoTo 0
Res = URLDownloadToFile(0&, URL, LocalFileName, 0&, 0&)
End Sub
Sub bcvb()
End Sub

Sziasztok
Van egy subrutinom, amit egyszer szeretnék lefuttatni az Excel fájl indításakor. Ezt hogy tudom megadni?

Szia,

Nekem van egy makróm, ami így van beállítva:
This workbook: workbook open --> call getdata (nekem így hívják a makrót)

Remélem segít!

Köszönöm, ilyenre gondoltam!

Szívesen!