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

• #34103 RAiN91 őstag

  Új Válasz 2017-02-08 09:27:44 #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.

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