בקשה | דרוש קוד קצר בVBA

[טכנופוב]

אני צריך מאקרו לאקסל שכשאני מפעיל אותו הוא ממתין שאלחץ על תא מעמודה A והוא יעתיק את תוכן התא לתא I4 ואז ימתין שאלחץ על עוד תא בעמודה A ויעתיק את תוכן התא לתא J4, אפשרי?,

[pcinfogmach]

פוסט זה נמחק!

[K.O.G]

@טכנופוב כתב בבקשה | דרוש קוד קצר בVBA:

אני צריך מאקרו לאקסל שכשאני מפעיל אותו הוא ממתין שאלחץ על תא מעמודה A והוא יעתיק את תוכן התא לתא I4 ואז ימתין שאלחץ על עוד תא בעמודה A ויעתיק את תוכן התא לתא J4, אפשרי?,

gpt

Sub CopyToCells()
    Dim sourceCell As Range
    Dim targetCell As Range
    
    ' המאקרו ירוץ כל עוד הכפתור Control נלחץ
    Do While Not Application.CommandBars.FindControl(ID:=1281).State = 0
        ' המתנה ללחיצה על תא בעמודה A
        Application.Wait Now + TimeValue("00:00:01")
        
        ' בדיקה אם תא המקור ריק
        If IsEmpty(Selection) Then
            MsgBox "תא המקור ריק!"
        Else
            ' העתקת הערך מתא המקור לתא היעד
            Set sourceCell = Selection
            Set targetCell = Sheets("Sheet1").Range("I4")
            targetCell.Value = sourceCell.Value
            
            ' המתנה ללחיצה נוספת על תא בעמודה A
            Application.Wait Now + TimeValue("00:00:01")
            
            ' בדיקה אם תא המקור ריק
            If IsEmpty(Selection) Then
                MsgBox "תא המקור ריק!"
            Else
                ' העתקת הערך מתא המקור לתא היעד
                Set sourceCell = Selection
                Set targetCell = Sheets("Sheet1").Range("J4")
                targetCell.Value = sourceCell.Value
            End If
        End If
    Loop
End Sub

[טכנופוב]

@K-O-G לא עובד, (לא הייתי שואל כאן לפני ששאלתי את GPT)

[pcinfogmach]

@טכנופוב
הנה הקוד הנצרך

Dim xcopy As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If xcopy Is Nothing Then Exit Sub
xcopy.Value = Target.Text
Set xcopy = Cells(4, xcopy.Column + 1)
End Sub

sub התחל
Set xcopy = Range("B4")
End Sub

sub הפסק
Set xcopy = Nothing
End Sub

הוראות:
יש לשמור את הקובץ כקובץ תואם מאקרו

Spoiler

ואז בתוך הקובץ יש לפתוח את עורך הvba ולהדביק את הקוד בתוך הגליון בו אתם רוצים שהוא ירוץ כך

קודם יש להריץ את המאקרו setx (ולהתאים אותו לפי איזה שורה או אות התחלתית שתרצו)
ואז יקרה מה שרציתם

בהצלחה!

[טכנופוב]

@pcinfogmach לא עושה לי כלום,

[pcinfogmach]

@טכנופוב
הכנסת אותו בתוך הגליון?

[pcinfogmach]

הנה קובץ דוגמא
חוברת11.xlsm
זכור! המאקרו יתחיל לעבוד רק אחרי הרצת המאקרו "התחל"

[טכנופוב]

@pcinfogmach כן, אבל GPT עכשיו נתן לי תשובהטקסט קישור- זה אומנם עם דו שיח אבל לא נורא,
נ. ב. מייקרוסופט חסם לי את המאקרו שלך

[pcinfogmach]

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

שמחתי לעזור
ושמחתי שהסתדרת

[pcinfogmach]

פוסט זה נמחק!