אקסל

קטגוריות משנה

• ---

• מדריכים - אקסל

  9 נושאים

  63 פוסטים

  צ

  @א-א-א אחרי השינוי לזיפ, לא נותן לפתוח.
  e3d9a09d-bcbe-4e73-86cc-43e9c8815921-image.png

• עזרה הדדית - אקסל

  311 נושאים

  2k פוסטים

  א

  @מטעמים הוא נותן תוצאה אבל לא נכונה התוצאה אמור להיות כמו בתא J15

• VBA - excel

  הדרכה ועזרה לשפה המתה VBA

  מדריכים - VBA excel

  עזרה הדדית - VBA excel
  42 נושאים

  451 פוסטים

  א

  @יעקב-ש

  Sub ImportCommentsToTable() Dim wsSource As Worksheet Dim wsDest As Worksheet Dim cmt As Comment Dim rng As Range Dim lastRow As Long Dim destRow As Long Set wsSource = ActiveSheet ' צור גיליון חדש לתוצאות Set wsDest = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) wsDest.Name = "הערות מיובאות" ' כותרות לטבלה wsDest.Range("A1").Value = "מיקום תא" wsDest.Range("B1").Value = "תוכן תא" wsDest.Range("C1").Value = "תוכן הערה" destRow = 2 ' שורה להתחלת הדאטה ' עבור כל התא עם הערה בגיליון המקורי For Each cmt In wsSource.Comments wsDest.Cells(destRow, 1).Value = cmt.Parent.Address(False, False) ' מיקום התא wsDest.Cells(destRow, 2).Value = cmt.Parent.Value ' תוכן התא wsDest.Cells(destRow, 3).Value = cmt.Text ' תוכן ההערה destRow = destRow + 1 Next cmt ' עצב טבלה lastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row wsDest.Range("A1:C" & lastRow).Select wsDest.ListObjects.Add(xlSrcRange, Selection, , xlYes).Name = "CommentsTable" wsDest.ListObjects("CommentsTable").TableStyle = "TableStyleMedium9" MsgBox "ייבוא ההערות הסתיים. נמצאו " & destRow - 2 & " הערות.", vbInformation End Sub

  מרובי בוט