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

• #21880 Delila_1 veterán bteebi #21878

  Új Válasz 2014-06-05 09:48:35 #21880

  Ú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 bteebi #21878 üzenetére

  Sub osszeir()
  Dim lap%, tartomany As Range, CV As Range
  Dim oszlop As Integer, betu As String
  
  For lap% = 1 To Sheets.Count
  If Sheets(lap%).Name <> "osszeir" Then
  Sheets(lap%).Select
  Range("A5").Select
  Set tartomany = Selection.CurrentRegion
  For Each CV In tartomany
  Debug.Print CV.Address
  If CV.Interior.ColorIndex = 3 Then
  betu = Cells(6, CV.Column)
  If CV.Column Mod 2 = 0 Then
  oszlop = CV.Column
  Else
  oszlop = CV.Column - 1
  End If
  Sheets("osszeir").Range(CV.Address) = "0" & Cells(5, oszlop) & "-" & _
  betu & "-" & Cells(CV.Row, 1) & "h"
  End If
  Next
  End If
  Next
  Sheets("osszeir").Select
  End Sub

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