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

• #26095 mustang08 aktív tag Louro #26092

  Új Válasz 2015-03-19 19:41:21 #26095

  Ú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

  

  mustang08

  aktív tag

  LOGOUT blog

  válasz Louro #26092 üzenetére

  Az a helyzet, hogy én pedig még soha nem makróztam excelben (a középiskolában nem volt tananyag, a fősulin meg még annyit se). De azért megpróbáltam beüzemelni az általad adott kódot, de sajnos az első sort se engedte már, így egy kicsit átírtam. Most már nem piros egyik sor sem, de futtatáskor egy 438-as hibaüzenetet ad: "Object doesn't support this property or method"

  Sub Választó()
  Dim LastRow As Integer
  LastRow = ActiveSheet.UsedRange.Rows.Count
  For i = 1 To LastRow - 1
  For j = 1 To LastRow
  If Cells(i, 1) + Cells(j, 1) = Range("C1") Then
  Cells(i, 1).Cut
  Cells(ActiveSheet.Cells(Rows.Count, "K").End(xlUp).Row + 1, 11).Paste
  Cells(j, 1).Cut
  Cells(ActiveSheet.Cells(Rows.Count, "K").End(xlUp).Row + 1, 11).Paste
  End If
  Next
  Next
  End Sub

  Tudnál segíteni? (Már ha van türelmed egy kezdőnek elmagyarázni)

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