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

• #30383 bsh addikt m.zmrzlina #30373

  Új Válasz 2016-02-02 17:44:15 #30383

  Ú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

  

  bsh

  addikt

  válasz m.zmrzlina #30373 üzenetére

  azért dobja a hibát, mert a Cells() nincs explicit kvalifikálva (vagy hogy híjják ezt magyarul?), így az az activesheet.cells()-re vonatkozik. magyarán kábé így kell használnod:

  Set tartomany = ThisWorkbook.Worksheets(1).range(ThisWorkbook.Worksheets(1).Cells(2, 3), ThisWorkbook.Worksheets(1).Cells(int_usor, int_uoszlop))

  a kisbetűs range-re meg írtam már, mit lehet ellene tenni. az nem segített?

• #30377 Delila_1 veterán m.zmrzlina #30373

  Új Válasz 2016-02-02 16:39:11 #30377

  Ú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

  

  Delila_1

  veterán

  válasz m.zmrzlina #30373 üzenetére

  Sub valogat()
  Dim int_usor As Integer, int_uoszlop As Integer, int_vege As Integer
  Dim cella As Range, tartomany As String
  
  int_usor = 135: int_uoszlop = 50: int_vege = 2
  
  tartomany = Range(Cells(2, 3), Cells(int_usor, int_uoszlop)).Address
  
  For Each cella In Sheets(1).Range(tartomany)
  If cella.Interior.ColorIndex = 6 And cella.Value <> "" And Application.WorksheetFunction.CountIf(Worksheets("csatorna").Range("D2:D50"), cella.Value) = 0 Then
  Worksheets("csatorna").Cells(int_vege, 4).Value = cella.Value
  int_vege = int_vege + 1
  End If
  Next
  End Sub

  A tartomany változó string legyen, ne range. Nézd meg a for each sort is.

  A Dim sorokat érdemes mindig a makró elejére tenni egy kupacba, akkor egy hosszabb makróban könnyű megtalálni. Betettem a cella változót is oda, azt nem dimenzionáltad.

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