Dakle, imam problem u excelu.
Na poslu imam tablicu koja se printa i u nju ljudi upisuju radne sate. Prije se radilo ručno ali sad imamo oko 100 ljudi i problem je, pa sam stavio popis imena u drugi sheet, i macrom ih vučem u prvi sheet i printam automatski.
Option Explicit
Sub printanje_imena()
Dim varResponse As Variant
varResponse = MsgBox("Za printanje imena pritisni Yes, za odustajanje pritisni No", vbYesNo, "Selection")
If varResponse <> vbYes Then Exit Sub
Dim popisimena As Range
Dim imena As Range
Dim ime As Range
Dim sifre As Range
Dim sifra As Range
With Worksheets("Popis imena")
Set imena = .Range("a1", .Cells(.Rows.Count, "A").End(xlUp))
Set sifre = .Range("b1", .Cells(.Rows.Count, "B").End(xlUp))
End With
With Worksheets("Print")
Set ime = .Range("E8")
Set sifra = .Range("I3")
For Each popisimena In imena.Cells
ime.Value = popisimena.Value
.PrintOut
Next
End With
End Sub
I to radi ok, ali sad imam problem da su se sjetili svakom radniku dodjeliti sifru a one se na papiru printaju odvojeno od imena. Dakle u jednoj ćeliji ime u drugoj šifra. I sad ja stavim u drugi stupac popiš šifri ali tu nastaje problem, nemogu nikako složiti da to funkcionira. Uz razne kombinacije dobijem ili da printa ime uz jednu šifru za sve, ili da printa ime u ime i pod šifru, ili da printa samo šifre umjesto imena.
Problem je u ovom dijelu:
With Worksheets("Print")
Set ime = .Range("E8")
Set sifra = .Range("I3")
For Each popisimena In imena.Cells
ime.Value = popisimena.Value
.PrintOut
Next
End With
E sad ja i macro nismo baš na ti, ovo sam napravio pomoću više tutoriala na netu, pa ak netko zna za bolje rješenje, ili neki drugi način, bio bi zahvalan ak pomogne.
Excel je ovdje.