די אחראים: זייער נייגעריג , אחראי , thefact
קענסט ניצן
די פשוט׳סטע מהלך איז VBA, אנדערע אפציעס וואלט געווען ניצן גוגל שיטס מיט google app script אדער ניצן עני אנדערע סאפטוועיריואל OnTrack האט געשריבן: ↑ דאנערשטאג אוגוסט 29, 2024 11:54 amI do templates for clients to import transactions to QuickBooks.
Client would download transaction data from an external system and import it to QB using a standard importing tool.
There are multiple steps required like:
- Multiple filtering
- Summarizing amounts by various criteria
- Validating data against a previously saved spreadsheet
- Replacing names and labels from stored reference list
- Extracting data to different tabs depending on types
- And more
I have used for projects like this:
- Excel simple formulas with instructions for manual processes
- Excel complex nested array formulas
- VBA
In VBA I am not fluent and I mostly used AI to develop the code.
Any suggestions going forward?
Need more info to advise?
יישר כחכם!
סעלעקט די סעלס צו צוברעכן, גיי צו די data טעב און אונטער דעטע וואלידעישאן דארף צו זיין טעקסט טו קאלאם.
Flash fill.
מיט א פארמאלע קענט איר נוצן:לייבעל בלום האט געשריבן: ↑ זונטאג סעפטעמבער 01, 2024 6:28 amFlash fill.
פאנג אהן טייפן די ערשטע צוויי לעצטע נעמען אין שלעפ אראפ.
קאוד: וועל אויס אלע
=RIGHT(A1,LEN(A1)-FIND(" ",A1,1))
קאוד: וועל אויס אלע
=LEFT(A1, FIND(" ",A1,1)-1)
אויב דו ווילסט רעכענען B1 לייגסטו אריין דאסירוחם פישל האט געשריבן: ↑ מיטוואך סעפטעמבער 18, 2024 8:32 pmווען מ'נוצט די IF פאנקציע איז דא א פשוט'ע וועג צו אנשטעלן אז אויב די ריזאלט איז א נעגעטיוו נאמבער דאן זאל עס צוריקקערן 0?
קאוד: וועל אויס אלע
=IF(B1<=0,0,B1)
א דאנק, מיין שאלה איז צו ס'איז נישטא אן אנדערע וועג וואס קען צוניץ קומען ווען מ'מאכט א לאנגע קאמפלעצירטע חשבוןאיך הייס אזוי האט געשריבן: ↑ מיטוואך סעפטעמבער 18, 2024 8:36 pmאויב דו ווילסט רעכענען B1 לייגסטו אריין דאסירוחם פישל האט געשריבן: ↑ מיטוואך סעפטעמבער 18, 2024 8:32 pmווען מ'נוצט די IF פאנקציע איז דא א פשוט'ע וועג צו אנשטעלן אז אויב די ריזאלט איז א נעגעטיוו נאמבער דאן זאל עס צוריקקערן 0?קאוד: וועל אויס אלע
=IF(B1<=0,0,B1)
https://stackoverflow.com/questions/417 ... -then-zeroירוחם פישל האט געשריבן: ↑ מיטוואך סעפטעמבער 18, 2024 8:32 pmווען מ'נוצט די IF פאנקציע איז דא א פשוט'ע וועג צו אנשטעלן אז אויב די ריזאלט איז א נעגעטיוו נאמבער דאן זאל עס צוריקקערן 0?
ארויפצוער אין דעם אשכול.
פאר הסבר זע דא viewtopic.php?p=1868758#p1868758למעלה משבעים האט געשריבן: ↑ זונטאג מאי 20, 2012 8:12 amאון אז איך בין שוין צוגעקומען צו דעם, דארף מען שוין נישט צוקומען צו די מאקרו וואס פאטאקי האט דא http://www.ivelt.com/forum/viewtopic.ph ... 88#p399688 געשטעלט. מען קען ניצן די צוויי פארמולע'ס.
קאוד: וועל אויס אלע
=TRIM(MID(A1,1,LEN(A1)-LEN(C1)-1))קאוד: וועל אויס אלע
=RIGHT(A1,LEN(A1)-FIND("*",SUBSTITUTE(A1," ","*",LEN(A1)-LEN(SUBSTITUTE(A1," ","")))))
געוואלדיג, ייש"כבריטיש עירוועיס האט געשריבן: ↑ מיטוואך סעפטעמבער 18, 2024 8:42 pmhttps://stackoverflow.com/questions/417 ... -then-zeroירוחם פישל האט געשריבן: ↑ מיטוואך סעפטעמבער 18, 2024 8:32 pmווען מ'נוצט די IF פאנקציע איז דא א פשוט'ע וועג צו אנשטעלן אז אויב די ריזאלט איז א נעגעטיוו נאמבער דאן זאל עס צוריקקערן 0?
https://exceljet.net/formulas/convert-n ... rs-to-zero
קאוד: וועל אויס אלע
=MOD(ROW(),2)=1
Check if stop processing is turned on on the first conditional formatאיך הייס אזוי האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 6:53 pmאיך נוץ Conditional Formatting צו מאכן Alternate Color Cells מיט די פארמולעאון איך וויל נוצן א צווייטע Conditional Formatting צו מאכן רויט אלע נומערן Text Color אין א געוויסע קאלום וואס איז ווייניגער ווי 0, אבער ער טוט עס נאר פאר יעדע צווייטעקאוד: וועל אויס אלע
=MOD(ROW(),2)=1
איך זעה נישט אזא אפציע אין Google Docsלייבעל בלום האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 7:24 pmCheck if stop processing is turned on on the first conditional formatאיך הייס אזוי האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 6:53 pmאיך נוץ Conditional Formatting צו מאכן Alternate Color Cells מיט די פארמולעאון איך וויל נוצן א צווייטע Conditional Formatting צו מאכן רויט אלע נומערן Text Color אין א געוויסע קאלום וואס איז ווייניגער ווי 0, אבער ער טוט עס נאר פאר יעדע צווייטעקאוד: וועל אויס אלע
=MOD(ROW(),2)=1
די אשכול איז פאר עקסעל. נישט פאר גוגל דאקסאיך הייס אזוי האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 7:26 pmאיך זעה נישט אזא אפציע אין Google Docsלייבעל בלום האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 7:24 pmCheck if stop processing is turned on on the first conditional formatאיך הייס אזוי האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 6:53 pmאיך נוץ Conditional Formatting צו מאכן Alternate Color Cells מיט די פארמולעאון איך וויל נוצן א צווייטע Conditional Formatting צו מאכן רויט אלע נומערן Text Color אין א געוויסע קאלום וואס איז ווייניגער ווי 0, אבער ער טוט עס נאר פאר יעדע צווייטעקאוד: וועל אויס אלע
=MOD(ROW(),2)=1
אנטשולדיגט איך רעד פון Google Sheetsבריטיש עירוועיס האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 7:53 pmדי אשכול איז פאר עקסעל. נישט פאר גוגל דאקסאיך הייס אזוי האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 7:26 pmאיך זעה נישט אזא אפציע אין Google Docsלייבעל בלום האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 7:24 pmCheck if stop processing is turned on on the first conditional formatאיך הייס אזוי האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 6:53 pmאיך נוץ Conditional Formatting צו מאכן Alternate Color Cells מיט די פארמולעאון איך וויל נוצן א צווייטע Conditional Formatting צו מאכן רויט אלע נומערן Text Color אין א געוויסע קאלום וואס איז ווייניגער ווי 0, אבער ער טוט עס נאר פאר יעדע צווייטעקאוד: וועל אויס אלע
=MOD(ROW(),2)=1
געענטפערט אין די אנדערע אשכולאיך הייס אזוי האט געשריבן: ↑ פרייטאג סעפטעמבער 20, 2024 1:48 pmאנטשולדיגט איך רעד פון Google Sheetsבריטיש עירוועיס האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 7:53 pmדי אשכול איז פאר עקסעל. נישט פאר גוגל דאקסאיך הייס אזוי האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 7:26 pmאיך זעה נישט אזא אפציע אין Google Docsלייבעל בלום האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 7:24 pmCheck if stop processing is turned on on the first conditional formatאיך הייס אזוי האט געשריבן: ↑ דאנערשטאג סעפטעמבער 19, 2024 6:53 pmאיך נוץ Conditional Formatting צו מאכן Alternate Color Cells מיט די פארמולעאון איך וויל נוצן א צווייטע Conditional Formatting צו מאכן רויט אלע נומערן Text Color אין א געוויסע קאלום וואס איז ווייניגער ווי 0, אבער ער טוט עס נאר פאר יעדע צווייטעקאוד: וועל אויס אלע
=MOD(ROW(),2)=1
קאוד: וועל אויס אלע
Sub Email()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
' Change the mail address and subject in the macro before you run it.
With OutMail
.to = ""
.to = ""
.CC = ""
.BCC = ""
.Subject = ""
.Body = ""
.Attachments.Add
' You can add other files by uncommenting the following line.
'.Attachments.Add ("C:\test.txt")
' In place of the following statement, you can use ".Display" to
' display the mail.
.Send
End With
On Error GoTo 0
MsgBox "File sent successfully"
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
ס׳שיקט פון די דיפאלט אקאונט.פערלמוטער האט געשריבן: ↑ דינסטאג סעפטעמבער 24, 2024 1:23 pmכוויל שיקן אימעלס דורך VBA כבין אריינגעלגט אין OUTLOOK מיט אן עקסטשענדזש אקאונט און א GMAIL, די קאוד האב איך געטראפן אנליין, כוויל וויסן וויאזוי צו סעטן ס'זאל גיין דורך די GMAIL,קאוד: וועל אויס אלע
Sub Email() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next ' Change the mail address and subject in the macro before you run it. With OutMail .to = "" .to = "" .CC = "" .BCC = "" .Subject = "" .Body = "" .Attachments.Add ' You can add other files by uncommenting the following line. '.Attachments.Add ("C:\test.txt") ' In place of the following statement, you can use ".Display" to ' display the mail. .Send End With On Error GoTo 0 MsgBox "File sent successfully" Set OutMail = Nothing Set OutApp = Nothing End Sub
שוין פרבירט,ערעב איד האט געשריבן: ↑ דינסטאג סעפטעמבער 24, 2024 1:57 pmס׳שיקט פון די דיפאלט אקאונט.פערלמוטער האט געשריבן: ↑ דינסטאג סעפטעמבער 24, 2024 1:23 pmכוויל שיקן אימעלס דורך VBA כבין אריינגעלגט אין OUTLOOK מיט אן עקסטשענדזש אקאונט און א GMAIL, די קאוד האב איך געטראפן אנליין, כוויל וויסן וויאזוי צו סעטן ס'זאל גיין דורך די GMAIL,קאוד: וועל אויס אלע
Sub Email() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next ' Change the mail address and subject in the macro before you run it. With OutMail .to = "" .to = "" .CC = "" .BCC = "" .Subject = "" .Body = "" .Attachments.Add ' You can add other files by uncommenting the following line. '.Attachments.Add ("C:\test.txt") ' In place of the following statement, you can use ".Display" to ' display the mail. .Send End With On Error GoTo 0 MsgBox "File sent successfully" Set OutMail = Nothing Set OutApp = Nothing End Sub
