visual basic אין עקסעל

די אחראים: זייער נייגעריג,אחראי,thefact

אוועטאר
אברהם דוד
שר מאה
תגובות: 121
זיך איינגעשריבן אום: מיטוואך יוני 14, 2017 11:53 pm

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך אברהם דוד »

אברהם דוד האט געשריבן:איך וויל מאכן א אפציע אין א User Form צו קענען זוכן פאר א רעקארד דורך אריינטייפן אין א Search Box איך בין זייער רוי אין VBA אבער אין א Worksheet האב איך געטראפן א וועג דאס צו מאכן, און דערווייל האב איך אויסגעשטעלט אין די Form אז דורך א Command Button עפענט ער יענע Sheet און דורך א מעקרא אין די Sheet עפענט ער צוריק די Form און ער לייגט אריין דארט די אויסגעוועלטע רעקארד.
איך לייג דא צו א סעמפל פייל פון וואס איך האב געמאכט אז מען זאל בעסער פארשטיין (אין די ארגינעלע פייל איז עס שענער אויסגעשטעלט און באהאלטן אלע איבעריגע אינפארמעשאן וואס די User דארף נישט זען).

איך זוך א וועג צו מאכן די גאנצע זאך אין מיין User Form, אדער צום ווייניגסטענס זאל די Search געטון ווערן אין א אנדערע Form אנשטאט אין א Worksheet.

אויב איינער קען העלפן וועל איך זייער דאנקבאר זיין, איך האב פראבירט פרעגן אין Google אבער אזוי ווי איך קען נישט עכט קיין VBA פארשטיי איך בכלל נישט די ענטפערס.
די בעסטע וועט זיין אויב איינער קען עס צולייגן אין דעם זעלבן פייל וואס איך לייג דא מיט, אזוי וועל איך לכאורה עס קענען איבערמאכן אין די עכטע פייל.

די סעמפל פייל

א דאנק פון פאראויס.

די עצם Search קען נאר טרעפן א גאנצע String עס וואלט בעסער געווען ווען מען וואלט געקענט נוצן א Space צו זוכן עקסטער אין ערשטע און לעצטע נאמען.
צום ביישפיל אז ווען איך טייפ "avr" space "duv" זאל ארויפקומען "Avrum, Duvid"
איך גלייב אז דאס דארף זיין מעגליך אין VBA און דאס וועט זיין א עקסטערע שטארקע מעלה.
אוועטאר
קענדי'ס
שר שלשת אלפים
תגובות: 3361
זיך איינגעשריבן אום: מאנטאג סעפטעמבער 25, 2017 4:44 pm
לאקאציע: שמחות תורה אויפ'ן פארענעשטעס

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך קענדי'ס »

איך האב געמאכט אזא מעקראו
[offtopic]Set x = ActiveWorkbook
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Workbooks.Open Filename:="C:\Users\{user}\Desktop\GP MACRO\Bulk inventory adjustment.xlsx"
Windows("Bulk inventory adjustment.xlsx").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Delete
With x.Activate
Selection.Copy
End With
Windows("Bulk inventory adjustment.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
Windows("Bulk inventory adjustment.xlsx").Close
With x.Activate
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End With[/offtopic]

ווען איך ראן עס דורך קליקען אויפן מעקראו ארבעט עס פיין
אבער ווען איך מאך א שארטקאט צי ראנען ctrl+shift+x
בלייבט עס שטיין ביי Windows("Bulk inventory adjustment.xlsx").Close
און ס'מאכט נישט צי די ווארקבאק און ער טוט גארנישט ווייטער פון דעם אבער די מעקראו האט גענעדיגט ראנען
ס'קומט נישט ארויף קיין שום ערראר
שוין געטרייט עטליכע וועגן אזוי ACTIVEWORKBOOKS.CLOSE
ס'טוט נישט ווייטער פון די סטעפ
אוועטאר
קענדי'ס
שר שלשת אלפים
תגובות: 3361
זיך איינגעשריבן אום: מאנטאג סעפטעמבער 25, 2017 4:44 pm
לאקאציע: שמחות תורה אויפ'ן פארענעשטעס

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך קענדי'ס »

קיינער?
קענדי'ס האט געשריבן:איך האב געמאכט אזא מעקראו
[offtopic]Set x = ActiveWorkbook
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Workbooks.Open Filename:="C:\Users\{user}\Desktop\GP MACRO\Bulk inventory adjustment.xlsx"
Windows("Bulk inventory adjustment.xlsx").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Delete
With x.Activate
Selection.Copy
End With
Windows("Bulk inventory adjustment.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
Windows("Bulk inventory adjustment.xlsx").Close
With x.Activate
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End With[/offtopic]

ווען איך ראן עס דורך קליקען אויפן מעקראו ארבעט עס פיין
אבער ווען איך מאך א שארטקאט צי ראנען ctrl+shift+x
בלייבט עס שטיין ביי Windows("Bulk inventory adjustment.xlsx").Close
און ס'מאכט נישט צי די ווארקבאק און ער טוט גארנישט ווייטער פון דעם אבער די מעקראו האט גענעדיגט ראנען
ס'קומט נישט ארויף קיין שום ערראר
שוין געטרייט עטליכע וועגן אזוי ACTIVEWORKBOOKS.CLOSE
ס'טוט נישט ווייטער פון די סטעפ
אוועטאר
קענדי'ס
שר שלשת אלפים
תגובות: 3361
זיך איינגעשריבן אום: מאנטאג סעפטעמבער 25, 2017 4:44 pm
לאקאציע: שמחות תורה אויפ'ן פארענעשטעס

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך קענדי'ס »

וויל איך אנפילן קאלעם A מיט נאמבערס
[offtopic]
Range("A1") = "Line"
Range("A2") = "1"
Range("A3") = "2"
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A3").autofill Destination:=Range("A2:A" & LastRow)
[/offtopic]
די פראבלעם געשענט אז אסאך מאל האט עס נאר איין ליין איז נאר A1 דארף א 1 און נישט מער
קרעשט די מעקראו
עני העלפ?
אוועטאר
קענדי'ס
שר שלשת אלפים
תגובות: 3361
זיך איינגעשריבן אום: מאנטאג סעפטעמבער 25, 2017 4:44 pm
לאקאציע: שמחות תורה אויפ'ן פארענעשטעס

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך קענדי'ס »

אפשר דאך?
אוועטאר
shimon7323
שר חמשת אלפים
תגובות: 5622
זיך איינגעשריבן אום: דינסטאג פעברואר 14, 2012 9:21 pm
לאקאציע: שיך
פארבינד זיך:

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך shimon7323 »

עפעס פעלט דא.

די פילסט אן row a בעיסד אויף row a ?
אדער די האסט אינפארמאציע און די צווייטע קאלום און פאר אלע שורות וואס האבן דארט אינפארמאציע ווילסטו אז דער ערשטע שורה זאל האבן א נומבער ?
אוועטאר
אלטן דור
שר האלף
תגובות: 1261
זיך איינגעשריבן אום: זונטאג אקטאבער 06, 2013 5:53 am

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך אלטן דור »

איך האב א עקסעל מיט א גרויסע מאקרו עס נעמט א פאר מינוט ביז ער לויפט עס אדורך

איז דא א וועג צו מאכן א באקל מיט א מעסידש ווי די מאקרו האלט ?
אוועטאר
shimon7323
שר חמשת אלפים
תגובות: 5622
זיך איינגעשריבן אום: דינסטאג פעברואר 14, 2012 9:21 pm
לאקאציע: שיך
פארבינד זיך:

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך shimon7323 »

אדער קענסטו אפדעיטן דער סטאטטס באר מיט א קאונטער ווי די האלסט אדער קוק ארום דא.

https://www.google.com/search?q=progres ... e&ie=UTF-8

עס איז דא מהלכים צי מאכען א פראגרעס באר.
אוועטאר
אלטן דור
שר האלף
תגובות: 1261
זיך איינגעשריבן אום: זונטאג אקטאבער 06, 2013 5:53 am

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך אלטן דור »

יישר כח
אוועטאר
לייבעלע
שר מאה
תגובות: 214
זיך איינגעשריבן אום: דינסטאג מאי 05, 2009 8:14 am

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך לייבעלע »

Is this doable?
ActiveCell.Offset( [last nonblank row of column A] , 0).Select
לייבעלע
- - - - - - - - -
leibeleh @ gmail.com

יואל OnTrack איז מיין ביזנעס ניק.
אוועטאר
ערעב איד
שר האלף
תגובות: 1186
זיך איינגעשריבן אום: מאנטאג אוגוסט 03, 2020 11:47 pm
לאקאציע: אלל אווער דעי פלעיס

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך ערעב איד »

לייבעלע האט געשריבן:
Is this doable?
ActiveCell.Offset( [last nonblank row of column A] , 0).Select
Range("A" & rows.count).end(xlup).row

This gives you the next empty row
אוועטאר
לייבעלע
שר מאה
תגובות: 214
זיך איינגעשריבן אום: דינסטאג מאי 05, 2009 8:14 am

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך לייבעלע »

ערעב איד האט געשריבן:
Range("A" & rows.count).end(xlup).row
It didn't wanna work for me.
I used this the one below. I also wanted to select them all.
Note that my active cell is in row 2.

קאוד: וועל אויס אלע

lastrow = Cells(Rows.Count, "a").End(xlUp).Row
Range(ActiveCell, ActiveCell.Offset(lastrow, 0).Offset(-2)).Select
Here is my full code. I appreciate ideas to make it more efficient.

קאוד: וועל אויס אלע

Sub Paste_Formulas()
    Sheets("Formulas").Select
    Range("A4").Copy
    Sheets("TT Invoices").Select
    Range("l2").Select
    ActiveSheet.Paste
    ActiveCell.Value = Right(ActiveCell.Value, Len(ActiveCell.Value) - 1)
    ActiveCell.Copy
    lastrow = Cells(Rows.Count, "a").End(xlUp).Row
    Range(ActiveCell, ActiveCell.Offset(lastrow, 0).Offset(-2)).Select
    ActiveSheet.Paste
    ActiveSheet.Calculate
End Sub
I would also like to get rid of the direct reference [Range("A4").Copy].
On the Formulas sheet I would have a list of cell addresses needing to paste formulas and their relative formula would be placed in a cell next to it.
Then have the code automatically look on the Formulas sheet what needs to be pasted to which cell.
(Am I looking for too much?)
I can show a screenshot of what I mean.
לייבעלע
- - - - - - - - -
leibeleh @ gmail.com

יואל OnTrack איז מיין ביזנעס ניק.
אוועטאר
ערעב איד
שר האלף
תגובות: 1186
זיך איינגעשריבן אום: מאנטאג אוגוסט 03, 2020 11:47 pm
לאקאציע: אלל אווער דעי פלעיס

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך ערעב איד »

לייבעלע האט געשריבן:
ערעב איד האט געשריבן:
Range("A" & rows.count).end(xlup).row
It didn't wanna work for me.
I used this the one below. I also wanted to select them all.
Note that my active cell is in row 2.

קאוד: וועל אויס אלע

lastrow = Cells(Rows.Count, "a").End(xlUp).Row
Range(ActiveCell, ActiveCell.Offset(lastrow, 0).Offset(-2)).Select
Here is my full code. I appreciate ideas to make it more efficient.

קאוד: וועל אויס אלע

Sub Paste_Formulas()
    Sheets("Formulas").Select
    Range("A4").Copy
    Sheets("TT Invoices").Select
    Range("l2").Select
    ActiveSheet.Paste
    ActiveCell.Value = Right(ActiveCell.Value, Len(ActiveCell.Value) - 1)
    ActiveCell.Copy
    lastrow = Cells(Rows.Count, "a").End(xlUp).Row
    Range(ActiveCell, ActiveCell.Offset(lastrow, 0).Offset(-2)).Select
    ActiveSheet.Paste
    ActiveSheet.Calculate
End Sub
I would also like to get rid of the direct reference [Range("A4").Copy].
On the Formulas sheet I would have a list of cell addresses needing to paste formulas and their relative formula would be placed in a cell next to it.
Then have the code automatically look on the Formulas sheet what needs to be pasted to which cell.
(Am I looking for too much?)
I can show a screenshot of what I mean.
if I understand correctly...
in sheet 1 column A you have cell names, in column B you have data.
you want to enter the data of column B in the cell (from column A) in sheet 2
if this is what you need , then here is the code

קאוד: וועל אויס אלע

Sub paste_furmulas1()
Dim last_row As Long

last_row = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To last_row
Worksheets("TT Invoices").Range(Cells(i, 1)).Value = Cells(i, 2).Value
Next i

End Sub

אוועטאר
לייבעלע
שר מאה
תגובות: 214
זיך איינגעשריבן אום: דינסטאג מאי 05, 2009 8:14 am

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך לייבעלע »

ערעב איד האט געשריבן:
if I understand correctly...
It's a bit different.
In sheet 2 ("Formulas") cell A4 I have a formula, including another character in front of it to keep it as a value.
I want to place the formula without the extra character into sheet 1 ("TT Invoices") cell I2.
Then fill the formula all the way down till the end of the existing array.
Then change all of these formula results to values.
(For now, ignore the last paragraph in my original post.)
לייבעלע
- - - - - - - - -
leibeleh @ gmail.com

יואל OnTrack איז מיין ביזנעס ניק.
אוועטאר
לייבעלע
שר מאה
תגובות: 214
זיך איינגעשריבן אום: דינסטאג מאי 05, 2009 8:14 am

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך לייבעלע »

Would there be anybody with this knowledge available to help for a fee?
מ'קען מיר ענטפערן אין אישי.
לייבעלע
- - - - - - - - -
leibeleh @ gmail.com

יואל OnTrack איז מיין ביזנעס ניק.
אוועטאר
ערעב איד
שר האלף
תגובות: 1186
זיך איינגעשריבן אום: מאנטאג אוגוסט 03, 2020 11:47 pm
לאקאציע: אלל אווער דעי פלעיס

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך ערעב איד »

לייבעלע האט געשריבן:
ערעב איד האט געשריבן:
if I understand correctly...
It's a bit different.
In sheet 2 ("Formulas") cell A4 I have a formula, including another character in front of it to keep it as a value.
I want to place the formula without the extra character into sheet 1 ("TT Invoices") cell I2.
Then fill the formula all the way down till the end of the existing array.
Then change all of these formula results to values.
(For now, ignore the last paragraph in my original post.)
It can be done very easy, I can send you the code later.

The question is.. If your using vba, you can have vba do the furmula instead of copy/paste.
אוועטאר
ערעב איד
שר האלף
תגובות: 1186
זיך איינגעשריבן אום: מאנטאג אוגוסט 03, 2020 11:47 pm
לאקאציע: אלל אווער דעי פלעיס

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך ערעב איד »

ערעב איד האט געשריבן:
לייבעלע האט געשריבן:
ערעב איד האט געשריבן:
if I understand correctly...
It's a bit different.
In sheet 2 ("Formulas") cell A4 I have a formula, including another character in front of it to keep it as a value.
I want to place the formula without the extra character into sheet 1 ("TT Invoices") cell I2.
Then fill the formula all the way down till the end of the existing array.
Then change all of these formula results to values.
(For now, ignore the last paragraph in my original post.)
It can be done very easy, I can send you the code later.

The question is.. If your using vba, you can have vba do the furmula instead of copy/paste.

קאוד: וועל אויס אלע

Sub paste_furmulas1()
Dim last_row As Long

last_row = Range("A" & Rows.Count).End(xlUp).Row
.value = mid(worksheets("formulas").range("a4"),2)

Range("i2:i" & last_row).copy

Range("i2:i" & last_row).pastespecial xlpastevalues

End Sub

אוועטאר
לייבעלע
שר מאה
תגובות: 214
זיך איינגעשריבן אום: דינסטאג מאי 05, 2009 8:14 am

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך לייבעלע »

ערעב איד האט געשריבן:
I can send you the code later.
It is well appreciated!
ערעב איד האט געשריבן:
you can have vba do the furmula
1. I am doing the formulas on the fly while analyzing data and as you can see I am not experienced with VBA.
2. I am hoping to use this code for future projects. The VBA will be static and only the formulas will be custom to the project's needs.
לייבעלע
- - - - - - - - -
leibeleh @ gmail.com

יואל OnTrack איז מיין ביזנעס ניק.
אוועטאר
לייבעלע
שר מאה
תגובות: 214
זיך איינגעשריבן אום: דינסטאג מאי 05, 2009 8:14 am

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך לייבעלע »

ערעב איד האט געשריבן:

קאוד: וועל אויס אלע

Sub paste_furmulas1()
Dim last_row As Long

last_row = Range("A" & Rows.Count).End(xlUp).Row
.value = mid(worksheets("formulas").range("a4"),2)
Gave me errors.
Do I need to combine this with the previous code?
לייבעלע
- - - - - - - - -
leibeleh @ gmail.com

יואל OnTrack איז מיין ביזנעס ניק.
אוועטאר
לייבעלע
שר מאה
תגובות: 214
זיך איינגעשריבן אום: דינסטאג מאי 05, 2009 8:14 am

Re: visual basic אין עקסעל

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך לייבעלע »

קודאס פאר @ערעב איד פאר'ן מיר אהערשטעלן (אין אישי) א העכסט פראפעסיאנאלע און קאמפליצירטע ווי-בי-עי פראיעקט!
לייבעלע
- - - - - - - - -
leibeleh @ gmail.com

יואל OnTrack איז מיין ביזנעס ניק.
שרייב תגובה

צוריק צו “מייקראסאפט עקסעל / עקסעס”