אידישע וועלט פארומס

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

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

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

די סעמפל פייל

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

קענדי'ס האט געשריבן: איך האב געמאכט אזא מעקראו
[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
ס'טוט נישט ווייטער פון די סטעפ

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

Is this doable?
ActiveCell.Offset( [last nonblank row of column A] , 0).Select

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

Range("A" & rows.count).end(xlup).row

 lastrow = Cells(Rows.Count, "a").End(xlUp).Row
Range(ActiveCell, ActiveCell.Offset(lastrow, 0).Offset(-2)).Select 

 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 

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

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

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.

 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 

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

if I understand correctly...

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

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

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.)

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

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

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

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 

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

I can send you the code later.

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

you can have vba do the furmula

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

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

 Sub paste_furmulas1()
Dim last_row As Long

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