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

• #19691 honfoglalo senior tag greenface #19685

  Új Válasz 2013-11-29 21:30:49 #19691

  Ú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

  

  honfoglalo

  senior tag

  válasz greenface #19685 üzenetére

  Sub lathatocellak()
  Dim lArea As Long

  With Sheet1.AutoFilter.Range.Columns(1)
  For lArea = 1 To .Areas.Count
  .Areas(lArea).FormulaR1C1 = "=peldastring"
  Next lArea
  End With
  End Sub

  Ahol a columns()-ba pedig az adott oszlop száma kerüljön. A mezőnevet írd vissza manuálisan, a peldastring helyére kerüljön a képlet.

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