Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #34103 RAiN91 őstag
    Új Válasz #34103
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    RAiN91

    őstag

    Az előző már nem aktuális, viszont még lenne egy utolsó kérdés :)

    Ez így működik, viszont szeretném, hogy soronként nézze végig az összes cellát, és ahol (35 oszlop sorai) amelyikben SZÖVEG mező van, írja be az adott sor másik cellájába is (12 oszlop sorai), és maradjon is ott.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(10, 35) = "SZÖVEG" Then
    Cells(9, 12) = "SZÖVEG"
    End If
    End Sub

    ---
    Erre próbáltam ezt, de amint beíródik a "SZÖVEG" 35-ös oszlop bármely cellájába, megfagy az excel.

    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i as integer, k as integer
    For i=10 to 100 step 2
    For k=9 to 100 step 2

    If Cells(i, 35) = "SZÖVEG" Then
    Cells(k, 12) = "SZÖVEG"
    End If

    Next
    Next
    End Sub

    Köszönöm a segítséget előre. :R

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

Hirdetés