pokusavam da napravim neki pocetnicki makro koji ce mi selektovani tekst ( na primeru u prikacenom fajlu 1 - sheet 1) formatirati text sa arial bold 11,odseci b i f kolonu, odseci plave color redove i sloziti preostale podatke po vremenskom redosledu kao na primeru u prikacenom fajlu 1 ( u sheetu 2 ).Treba predvideti da ce se kolicina teksta nepredviđeno menjati, i u finalnom obliku kao u sheetu 2 , bice potrebno do 3 stranice.da li moze neko da mi pomogne malo bukvalnijim savetima s obzirom da sam pocetnik.hvala. da jos samo da mi objasnite gde se kace fajlovi?
pomoc za pocetnicki makro
Zaključano
Zakačeno
Evo koda koji ce spisak utakmica sa prvog lista da kopira na Sheet3,
tebi ostaje da te celije formatiras i ako bas treba "prelomis" u vise kolona.
Pozdrav
tebi ostaje da te celije formatiras i ako bas treba "prelomis" u vise kolona.
Code:
Private Sub Kopiraj()
Dim r As Long
Dim i As Long
Dim txtTime As String
Dim txtMatch As String
Dim txtChannel As String
Dim blnNewMatch As Boolean
Dim blnNewChannel As Boolean
Range("C3").Select
r = 3
i = 2
blnNewMatch = False
blnNewChannel = False
txtTime = ""
txtMatch = ""
txtChannel = ""
Do While Cells(r, 5).Value & Cells(r, 6).Value <> ""
blnNewMatch = Cells(r, 3).Value <> ""
If blnNewMatch Then
txtTime = Cells(r, 3).Value
txtMatch = Cells(r, 4).Value
End If
blnNewChannel = Cells(r, 5).Value <> ""
If blnNewChannel Then txtChannel = Cells(r, 5).Value
If blnNewChannel Then
Sheets("Sheet3").Cells(i, 2) = txtTime
Sheets("Sheet3").Cells(i, 2).NumberFormat = "[$-F400]h:mm:ss AM/PM"
If blnNewMatch Then Sheets("Sheet3").Cells(i, 3) = txtMatch
Sheets("Sheet3").Cells(i, 4) = txtChannel
i = i + 1
End If
r = r + 1
Loop
Sheets("Sheet3").Columns("B:E").EntireColumn.AutoFit
End Sub
Private Sub Kopiraj()
Dim r As Long
Dim i As Long
Dim txtTime As String
Dim txtMatch As String
Dim txtChannel As String
Dim blnNewMatch As Boolean
Dim blnNewChannel As Boolean
Range("C3").Select
r = 3
i = 2
blnNewMatch = False
blnNewChannel = False
txtTime = ""
txtMatch = ""
txtChannel = ""
Do While Cells(r, 5).Value & Cells(r, 6).Value <> ""
blnNewMatch = Cells(r, 3).Value <> ""
If blnNewMatch Then
txtTime = Cells(r, 3).Value
txtMatch = Cells(r, 4).Value
End If
blnNewChannel = Cells(r, 5).Value <> ""
If blnNewChannel Then txtChannel = Cells(r, 5).Value
If blnNewChannel Then
Sheets("Sheet3").Cells(i, 2) = txtTime
Sheets("Sheet3").Cells(i, 2).NumberFormat = "[$-F400]h:mm:ss AM/PM"
If blnNewMatch Then Sheets("Sheet3").Cells(i, 3) = txtMatch
Sheets("Sheet3").Cells(i, 4) = txtChannel
i = i + 1
End If
r = r + 1
Loop
Sheets("Sheet3").Columns("B:E").EntireColumn.AutoFit
End Sub
Pozdrav
hvala, ali ja nemam pojma kako da upotrebim ovaj kod, odnosno gde da
ga ukljucim u kontekstu celog makroa?i kako se kopira kod u editoru?
copy-paste?
ga ukljucim u kontekstu celog makroa?i kako se kopira kod u editoru?
copy-paste?
1. Otvori tvoj Excel fajl
2. Pritisni Alt+F11
3. Sa leve stane ekrana u Project Explorer prozoru pritisni dvaput na Sheet1
4. Copy/Paste-uj ovak kod
5. Vrati se u Excel na pogled na celije
6. Pritisni Alt+F8
7. Nadji na spisku Macro Kopiraj, selektuj ga i pritisni Run
Promeni u kodu u prvom redu Private u Public
Pozdrav
2. Pritisni Alt+F11
3. Sa leve stane ekrana u Project Explorer prozoru pritisni dvaput na Sheet1
4. Copy/Paste-uj ovak kod
5. Vrati se u Excel na pogled na celije
6. Pritisni Alt+F8
7. Nadji na spisku Macro Kopiraj, selektuj ga i pritisni Run
Promeni u kodu u prvom redu Private u Public
Pozdrav
Ovo sam uspeo,hvala mnogo, recite mi samo jos ovo:
kako da nastavim formatiranje sheeta3 u okviru ovog koda,
posle kopiranja utakmica u sheet3?
i necu vas vise zadrzavati.pozdrav
kako da nastavim formatiranje sheeta3 u okviru ovog koda,
posle kopiranja utakmica u sheet3?
i necu vas vise zadrzavati.pozdrav
"Samo" pre End Sub dopisi tvoj kod za formatiranje.
Predlazem da prvo snimis makro koji radi formatiranje i ako fercera kako treba,
premesti taj kod na pomenuto mesto.
Pozdrav
Predlazem da prvo snimis makro koji radi formatiranje i ako fercera kako treba,
premesti taj kod na pomenuto mesto.
Pozdrav