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

הקוד הזה מוחק ערך כפול בעמודה 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

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

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

ובבית כנסת חסידי כמעט כל הוצאות חודש תשרי הם עבור כלל האנ"שים מכל הארץ.

תודה
אם הוא אמריקאי חייבים להתקפל...

תוכל לעשות שכל מקום יתפוס 2 או 3 תאים לגובה.
ולרשום מספרי מקום בתא העליון, ובתא שתחתיו לשים vlookup לפי המספר.

ניסיתי, אותו דבר
בדיבאג כתוב פורמט ישראלי שמחזיר שאילתה ריקה,
העתקתי לשאילתה בתצוגת SQL, נהפך..

@dovid אמר בהרצת SQL מVBA באקסס מחליף day ב Month:

כי הפורמט שצריך להיות בקוד הוא למיטב זכרוני אמריקאי בו החודש הראשון והימים באמצע (בשונה מצייר השאילתות שמתחשב בפורמט המקומי). ואם ככה הבעיה היא בתאריך הזה.

יש 2 תיבות טקסט, באחד כתוב 31 ובאחד 03.
את 31 הוא משאיר, ואת 03 הוא מחליף לאמריקאי.
בדיבאג הוא כתוב בפורמט ישראלי, אבל הוא מריץ שאילתה ריקה, לכן העתקתי וכו'.

אני מקים קוד SQL מVBA על שדה תאריך.
משום מה הוא לא נותן לי רשומות..
העתקתי את הקוד מdebug והדבקתי בתצוגת עיצוב של שאילתה הוא מחזיר לי את הסינון ככה
Between #31/07/2018# And #08/03/2018#
על אף שהתאריך בתיבת טקסט הוא 03/08
מה הפתרון חוץ מ format?

מה נקרא 'נתקע'?
רק שמאלה, למטה כן נגלל?

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

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

אך הקובץ הזה פשוט עננננק, ז"א יש בו מליון (באמת!) תאים לחלוקה לטורים.

אקסל יש לו רק 16384 עמודות.
תחלק לפי שורות מתאים למספר העמודות...

או שתחזור לפתרון של @כוכב-שמח
ו @dovid יש עוד סיבה למה עדיף העתק הדבק לוורד..

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

איך מוחקים את הטור הבסיסי? (ז"א ממקום החלוקה ואילך?)

לוחצים על האות האנגלית שמעל העמודה > לחיצה ימנית > מחק.

@dovid
א. לא חשבתי על זה אף פעם,
ב. מה רע בפונקציה שעושה את זה בשניה?

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

הוא מחלק לי את הטור בצורה רוחבית.
ז"א, תא 2 נהפך לעמודה B, תא 3 לעמודה C,
ומה שאני רוצה זה שהתאים יסודרו בצורה שונה: ז"א תא 2 ישאר ב2, ותא 3 ישאר ב3, ורק נגיד תא 20 יעבור לעמוד B, וכן הלאה, תא 40 לעמודה C וכו'.
כביכול חלוקה שכל 20 תאים עוברים לטור הבא.

הורדת מהאתר? יש שם שני סוגים אחד לעמודות ואחד לשורות.

תוריד את הקובץ שאני העליתי בהודעה השניה,
תעתיק לתוכו את העמודה שלך. וכו' ע"פ ההוראות

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

יקפצו שלש חלונות,
בראשון יש לבחור את הטווח לחלוקה,
בשני יש לכתוב לו מספר השורות שיכניס בכל עמודה [עמוד A4 הוא בין 30 ל40 תלוי בשוליים ובגודל]
בשלישי יש לתת לו תא מהיכן להתחיל את הפיצול.
וזהו, הקובץ מוכן להדפסה.

0_1531318175604_חלוקת עמודה רציפה לעמודות באקסל.xlsm

@H-C הנה פונקציה שעושה את זה באופן נפלא.

Sub SplitColumn()
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("טווח לחלוקה:", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("שורות בעמודה:", xTitleId)
Set OutRng = Application.InputBox("בחר תא לעמודה ראשונה:", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
    xValue = InputRng.Cells(i + 1)
    iRow = i Mod xRow
    iCol = VBA.Int(i / xRow)
    xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub

מקור והוראות כאן. (באנגלית)

תודה על השאלה, הרבה פעמים אני צריך כזה דבר, ועובר הלאה, עכשיו יש לי קיצור דרך.

@dovid
זה גם לא מנעול בתוך מנעול?
כי יש המון בלוגים על זה.

אולי כזה?...

@dovid ההגיון שלך צודק לברירת מחדל, וזה לא טעות.

הוא שינה פורט ברמת מחשב לצורך אבטחה.

@dovid למה שאיפוס יעזור?, עדיין לא פתח את הפורט הרצוי.

אם הוא שינה בregedit את הפורט של המחשב ל9797 בא נגיד.
איפוס אמור לעזור?

אני רק שואל.

@בול לא הבנת.
שאלתי,

1. אם מרשת אחרת, יש אפשרות להתחבר למחשב המרוחק.
2. מהמחשב שלך לחיבור RDP אחר.

ז. א. אם זה נחסם אצלך או במחשב המרוחק.