Hirdetés

Új hozzászólás Aktív témák

  • Fire/SOUL/CD

    félisten

    válasz Kobe #17856 üzenetére

    1. Ha az a korábbi kód egy valós kód volt(és nem csak valamit betettél példának), akkor az a kód minden esetben az épp aktív munkalapon dolgozik, ergo mindegy hány darab és nevű munkalap van a munkafüzetben, mindig azon végzi el a módosításokat/feladatát, ami épp ki van jelölve, azaz aktív.
    2. Az is egyértelműen leírtad, hogy az INT nevű munkalap minden esetben biztosan létezik

    Ebből kiindulva ennyi az egész ("if munkalap neve = INT, lefut a makró, else nem fut le" - olyan nincs, hogy else nem fut le) :DDD

    Private Sub MyMacro()

    Dim lngLastRow

    If ActiveSheet.Name = "INT" Then
    lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Columns("X:X").Select
    Selection.Insert Shift:=xlToRight
    Range("X1").Select
    ActiveCell.FormulaR1C1 = "common_id"
    Range("X2").Select
    .
    .
    .
    .
    End If

    End Sub

    [ Szerkesztve ]

    Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Új hozzászólás Aktív témák