עזרה במאקרו

[paza]

עזרה במאקרו

אני צריך לכתוב פקודה לחפש את המיספר שבעמודה F בעמודה D ולהעתיק את המיספר בעמודה A לעמודה G ואך אני נותן את הפקודה לכול השורות תודה

 

[nscom2k]

העתקה מטור לטור

Sub CopyCells(cFromColumn As String, cToColumn As String, iStart As Integer, iEnd As Integer) Dim iCounter As Long For iCounter = iStart To iEnd Range(Trim(cToColumn & Trim(Str(iCounter)))).Value = Range(Trim(cFromColumn & Trim(Str(iCounter)))).Value Next I End Sub​

 

[nscom2k]

חיפוש

Function FindValueinRange(sRange As String, vValue As Variant) As String Dim sResult As String, rResult As Range With Range(sRange) Set rResult = .Find(vValue, LookIn:=xlValues) If Not rResult Is Nothing Then sResult = rResult.Address Else sResult = "" End If End With FindValueinRange = sResult End Function​

 

[paza]

לא ברור לי מה לעשות

שתלתי את זה אבל זה לא עובד לי

 

[nscom2k]

המטרה

תן לפונקציה את איזור החיפוש כמו ב-EXCEL (למשל "F1:F100") ואת הערך שאתה מחפש (למשל RANGE("D1") ואז היא תחזיר מחרוזת המכילה את המיקום בה היא מצאה את הערך. שים לב : זוהי פונקציה - מטרתה להחזיר ערך.

 

[nscom2k]

יש להכניס ערכים

תקרא לפרוצדורה ולפונקציה ממקרו חיצוני