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

• #19696 honfoglalo senior tag honfoglalo #19691

  Új Válasz 2013-11-30 11:46:50 #19696

  Ú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 honfoglalo #19691 üzenetére

  Ja, ez is angol excelben működik, írd át ActiveSheet-re a Sheet1-et.

• #19694 honfoglalo senior tag honfoglalo #19692

  Új Válasz 2013-11-30 11:09:28 #19694

  Ú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 honfoglalo #19692 üzenetére

  Így pedig nem írja át a B oszlop mezőnevét:

  Private Sub Worksheet_Change(ByVal Target As Range)

  Application.ScreenUpdating = False

  a = ActiveCell.Address

  b = Columns(1).Rows.Count

  Range("a2:a" & b).Select

  Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B2" _
  ), Unique:=True
  Range(a).Select

  End Sub

• #19692 honfoglalo senior tag erdelyi73 #19690

  Új Válasz 2013-11-29 22:04:56 #19692

  Ú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 erdelyi73 #19690 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)

  a = ActiveCell.Address

  Columns(1).Select

  Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1" _
  ), Unique:=True
  Range(a).Select

  End Sub

  Akkor működik ha az A1 és B1 mezőnév.

• #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