תחומים - פורום חרדי מקצועי

בתיבת החיפוש למעלה. יש לך 3 פסים.
ב'מאת' את שם השולח.
הבא.
החלת תווית _____

@מעלה-ומוריד
יש לי איזה קובץ [אקסס ] ששולח מייל עם קובץ מצורף מתוך תקיה, לכל נמען את הקובץ שלו. מהקוד ש @clickone היקר והצדיק העלה לפורום מזמן מזמן.
אחפש אותו ואעלה לך, (מחר) [היום] בע"ה.

בעצם אפשר להספיק לפני שחרית
מיילים לפי קוד חבר.accdb
הקובץ מחפש את הקבצים בתקיה שנמצאת ביחד עם התוכנה בשם 'קבצים מצורפים' ושם הקובץ הוא המס תורם שבטבלת מיילים. וPDF. אפשר להחליף בכל סוג קובץ אחר בתוך הVBA.
צריך להחליף בVBA את ה.... לכתובת המייל והסיסמה.
[-כדי שהתוכנה תוכל לשלוח מכתובת הג'ימייל שלך, צריך לעשות בג'ימייל אימות כפול ולבקש סיסמה לתוכנות צד ג' ואת הסיסמה הזאת להכניס.]
תקח בחשבון שכל קובץ הוא צריך להעלות בנפרד, כך שזה יכול לארוך קצת זמן כל אימייל שהוא ישלח.

אם פונקציה באקסל גם טוב לך,
אז יש כאן בקובץ פונקציות שונות בתאריכים עבריים
ש @macroshadow העלה בפרוג

פונקציות תאריכים עבריים.xlsb

@chagold
כשמסננים טקסט צריך לתחום אותם ב '
בתוך הסטרינג לפני ואחרי ה& מרכאה בודדת '

יישויות.Open "SELECT * FROM [יישויות] WHERE ([משפחה ושם] = '" & לייבוא_רישום_לחוגים![שם ומשפחה] & "') OR ( [שם] = '" & לייבוא_רישום_לחוגים![שם ומשפחה] & "');", AN, adOpenForwardOnly, adLockOptimistic

@אהרן אמר באיך מוחקים שורות ריקות באקסל:

מה הפונקציה (כנ"ל למחוק את כל השורה) התנאי שתא בטור מסוים ריק?

בדוגמא ש clickone הביא,
תביא ל range רק את העמודה הרצויה.

עריכה:
תצטרך לתת לו 2 טווחים, כי הוא מוחק רק את השורות של הטווח, לא את כל השורה.

Sub foo()
Dim r As Range, rb As Range, rows As Long, i As Long
Set r = ActiveSheet.Range("B1:B50")
Set rb = ActiveSheet.Range("a1:z50")

rows = r.rows.Count
For i = rows To 1 Step (-1)
    If WorksheetFunction.CountA(r.rows(i)) = 0 Then rb.rows(i).Delete
Next
End Sub

או במקום 2 טווחים, לבחור את כל השורה

    If WorksheetFunction.CountA(r.rows(i)) = 0 Then    ' rb.rows(i).Delete
        rb.rows(CStr(i) & ":" & CStr(i)).Select
        Selection.Delete
    End If

    If Len(Me.txtFind) > 0 Then
        Me.fsubForm.Form.Filter = "[" & Me.cobField & "] like " & Chr(34) & "*" & Me.txtFind & "*" & Chr(34)
        Me.fsubForm.Form.FilterOn = True
    Else
        Me.fsubForm.Form.Filter = ""
        Me.fsubForm.Form.FilterOn = False
    End if

הקוד הזה עושה סינון לטופס משנה.

@EMG
השילוב של INDEX MATCH אמורה להיות הפונקציה.
אבל במקרה שאתה מבקש את זה, לעשות את הבדיקה באותה עמודה שאתה כותב זה גורם להפניה מעגלית שאינה ניתנת לחישוב.
אז או שתצטרך להוסיף עמודה ושם לעשות את הבדיקה,
או עם מאקרו כן תוכל לעשות משהו.

@ארי
צריך להפוך את הכניסה לחשבון גוגל לאימות דו שלבי
ואז להוסיף סיסמה לאפליקציה
וזה עובד חלק

היה על זה אשכול בפורום

@חייםיודלביץ
https://iconarchive.com/

@מנחם אמר ביצירת מסמכים דרך ה API של EZcount - אקסס:

אני מצרף דוגמא מאוד בסיסית שעשיתי
כמובן שזה לא עומד בכלל בתנאי הכתיבה הנכונים של קוד
אבל אם יהיה למישהו תועלת, והיה זה שכרי

תודה על ההפניה,
לציין, הוא משתמש עם הספריה הזאת.

@odeddvir @dovid
אכן עובד.

תודה רבה.

@mgm-ivr
אל תשכח את זה, תעשה את זה גם על הנתונים וגם על התוכנה.
אמור להשפיע לטובה,

@חייםיודלביץ אמר באקסס נורא איטי, יש פיתרון?:

ניסת לעשות "דחיסה ותיקון מסד הנתונים" ? יכול להיות שיעזור לך לשיפור המהירות.

@WWW טעיתי, וערכתי.

(הESET עושה לי בעיות בתחומים,
עד שהתאפשר העריכה, תפסת כבר את הטעות..)

@מעמיק אמר במכתב מגדולי הרבנים:

זה לא נורמלי! וודאי שלא! כמו שגם צעקו עליו בפורום של ימות המשיח.
אבל מדוע הם מתנגדים לאייקול שנותן אפשרויות של מייל בטלפון, ניווט, איתור עסקים, ואפילו חיפוש מימרא בתוך הש"ס-תא שמע ועוד. מה הבעיה בהן?
אדרבא כולם אבל כולם שהם חרדים לדבר ה' דורשים שיהיה ועדה, אבל ועדה הוגנת.

אהה...
ואיפה זה נגמר?
מחר מישהו יעשה חיפוש בויקיפדיה, מחרתיים בגוגל, ובשבוע הבא במשהו שאתה לא חושב על זה.

מתי הרבנים צריכים להגיד עד כאן?
יש מטרה לשמה הטלפון נועד, ברגע שמתחילים לגלוש מהמטרה המדרון פתוח.

ג"נ, אני גם סובל מחסימות קווים מסויימים,
אבל יש דברים שמתקבלים על כל בר דעת,
תוכיח העצומה שהצליחה להחתים פחות מ15 אחוז של הציבור...

הציבור דורש תקשורת כשרה ונקיה!!!!!!!!! גם בנפה תמיד נשאר קצת קמח.

@חיבור אמר בווצאפון שלא נחסם ומאושר ע"י הועדה:

תודה!

קול כשר יש להם אישור, אבל שם רק מנהל יכול לאשר הודעות

@צמא-למים אצלנו בקהילה משתמשים עם הכלי ההוא שהובא בתחילת האשכול לשידור חי גם בשמחת בית השואבה וגם בחתונות וגם בטישים של פורים ושל חנוכה וגם בטישים של דרשות ובעצם בכל מצב.

מאז שקנינו את הכלי הזה, אין תלונות על רעשים, יש פידבקים חיוביים שזה מאוד ברור.
הוא מתחבר למיקסר כמו בוקסה ואפשר להוריד את הווליום רק ליציאה אליה הוא מחובר.
יש לו ויסות באמצע החוט של 3 מצבים, צריך לשים אותו על האמצעי כמדומני, מחברים לטלפון נייד [מאחר ויש לו רק רמקול ללא דיבורית הוא לא מתחבר לכל טלפון, בטלפונים של נוקיה הוא עשה בעיות, K33 מזהה אותו].
הוא עובד ללא רעשים ולא כמו ש @Moshem כתב.

בנוגע לניתוקים, לוקחים אברךצ'יק שכל כמעט שעתיים מנתק את השיחה ומתקשר שוב, בסה"כ זה גם מקל על השמיעה חוזרת שזה בקבצים מחולקים ולא קובץ של חתונה בן 10 שעות רצופות...

@יהודי-טוב
להשתמש עם עיצוב כ'טקסט'
זה שומר את ה0

@בול
כנראה שכחת שיש לחצן הודיה

@dovid אמר בתוכנה לת"ת לאיסוף בפורים:

@מלא אנא תתמקד בעובדות יבשות ורק כאלה שיש להם הוכחות / לא ניתנים לויכוח.

@משרדי אמר בתוכנה לת"ת לאיסוף בפורים:

@מלא לא יודע מוזר אנחנו עובדים איתם כבר שנים.
תסייג שאתה נכווית

אם מישהו יפתח אשכול על הנושא וירצה לשמוע האם שווה לקנות
אסביר לו, בציטוט סיפורים שהיה לי איתם...

כאן זה לא הנושא, מישהו המליץ בעד ללא עובדות והוכחות,
אז אמרתי את דעתי כעובדה יבשה....

עריכה: ראיתי שערכת, אז ערכתי גם כאן.

הקוד הזה מוחק ערך כפול בעמודה A עד 100 שורות.
ה 1 בשורה הראשונה מסמן את עמודה A
ה100 זה כמות השורות.

(אני לא מכיר כמעט את הקודים של אקסל, אז אולי מישהו ישפר את הקוד...)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
    Dim i As Long
    Dim strT As String
    
    strT = Target

    For i = 1 To 100
        If Cells(i, 1) <> vbNullString Then
            If Cells(i, 1) = strT Then
                Cells(i, 1) = Null
                Target = strT
            End If
        End If
    Next i
    
End If
End Sub