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

• #23280 pigster senior tag nobela #23278

  Új Válasz 2014-09-16 08:06:12 #23280

  Ú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

  

  pigster

  senior tag

  válasz nobela #23278 üzenetére

  Vagy:
  Egy üres oszlopba:
  ="YY" & A1
  Aztán az eredetit elrejted, vagy másolás -> ismét egy új oszlopba beillesztés csak értékek, utána a felesleges oszlopokat törlöd

• #23277 fluxion őstag nobela #23276

  Új Válasz 2014-09-15 15:58:46 #23277

  Ú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

  

  fluxion

  őstag

  válasz nobela #23276 üzenetére

  Feltételezve, hogy az A oszlopról van szó és a 2. sortól indul. Ha az első sortól akkor a for ciklus 1-től induljon. Ha másik oszlopról akkor pedig Cells( i, 1) részt írd át. Az 1 jelöli az A oszlopot, a 2 a B-t és így tovább. A Munkalap_neve természetesen a saját munkalapod neve legyen.

  Sub YY()
  
  For i = 2 To Sheets("Munkalap_neve").UsedRange.Rows.Count
  Sheets("Munkalap_neve").Cells(i, 1).Value = "YY" & Sheets("Munkalap_neve").Cells(i, 1).Value
  Next i
  
  End Sub

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