Excel VBA Keressen egy sor másik lapot, majd módosítsa a sejt ugyanabban a sorban

szavazat
0

Tudom, hogy van sok kérdést, mint ez, de nem tudtam sem, hogy nekem dolgozni. Alapvetően leteszem a nyomtatási gombot PRINT lapon. Ha rákattint szeretnék venni a rendelési számot (ami a PRINT lap), keresse meg RENDELÉSEK lapon, majd tegye a szöveget, mint a „nyomtatott” egy másik oszlop azonos sorában a sorrendben. Már megoldódott a nyomtatási része rendben lesz. De nem tudott semmilyen kódok dolgozni. Vagyok newb. kérjük, fontolja meg a választ :)

  Sub Macro1()
'
' Macro1 Macro
'
'ActiveSheet.PrintOut
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim aCell As Range, bCell As Range
    Dim lrow As Long

    Set ws1 = Sheets(SPRS): Set ws2 = Sheets(ETÝKET)


        Set aCell = ws1.Columns(1).Find(What:=26182-2 _
                , LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, MatchCase:=False)
                    ThisWorkbook.Worksheets(SPRS).Range(aCell).Value = printed


End Sub
A kérdést 05/02/2016 13:40
a forrás felhasználó
Más nyelveken...                            


1 válasz

szavazat
0

A gombból funkció nyomtatása hozzáadás valami ilyesmit:

ThisWorkbook.Worksheets("ORDERS").Range($row).Value = "printed"

Hol $ sor kívánt cellára, amely feltehetően felelne meg a PRINT lapot.

Válaszolt 05/02/2016 14:02
a forrás felhasználó

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more