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

• #10885 Baboka tag Delila_1 #10884

  Új Válasz 2011-07-19 12:26:38 #10885

  Ú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

  

  Baboka

  tag

  válasz Delila_1 #10884 üzenetére

  Bővítményekkel sem jó sajna, berakom az egész makrót, nem egy nagy cucc hátha így tudsz segíteni:

  Sub gomb()
  Dim mo1, mo2, mo3, eo, ssz, osz, fk, i, j, k As Integer
  
  
  mo1 = frmmasol.tbmo1.Text
  mo2 = frmmasol.tbmo2.Text
  mo3 = frmmasol.tbmo3.Text
  eo = frmmasol.tbeo.Text
  ssz = frmmasol.tbssz.Text
  osz = frmmasol.tbosz.Text
  fk = frmmasol.tbfk.Text
  
  Sheets(1).Select
  Range("A1").Select
  
  
  If frmmasol.cbtabla.Value = False Then
  Windows("1.xls").Activate
  Sheets(1).Select
  Cells.Select
  Application.CutCopyMode = False
  Selection.Copy
  Windows("Masolo.xls").Activate
  Sheets(1).Select
  Cells.Select
  ActiveSheet.Paste
  End If
  
  Windows("2.xls").Activate
  Sheets(1).Select
  Cells.Select
  Application.CutCopyMode = False
  Selection.Copy
  Windows("Masolo.xls").Activate
  Sheets(2).Select
  Cells.Select
  ActiveSheet.Paste
  
  Sheets(1).Select
  Range("A1").Select
  
  
  For i = fk + 1 To ssz
  If (Sheets(2).Cells(i, eo).Value <> "") Then
  For j = fk + 1 To ssz
  If (Sheets(1).Cells(j, mo1).Value = Sheets(2).Cells(i, mo1).Value) And (Sheets(1).Cells(j, mo2) = Sheets(2).Cells(i, mo2)) And (Sheets(1).Cells(j, mo3) = Sheets(2).Cells(i, mo3)) Then
  For k = 1 To osz
  Sheets(1).Cells(j, k) = Sheets(2).Cells(i, k)
  Next k
  End If
  Next j
  End If
  Next i
  
  End Sub

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