Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

potreban makro za selekciju i kopiranje vrednosti

[es] :: Office :: Excel :: potreban makro za selekciju i kopiranje vrednosti

[ Pregleda: 2169 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

gogi100
Goran Ljubic

Član broj: 40722
Poruke: 940
*.mediaworksit.net.



+3 Profil

icon potreban makro za selekciju i kopiranje vrednosti09.08.2013. u 14:02 - pre 70 meseci
ja sam zakacio tabelu sa dva sheeta. jedan kako izgleda sirova tabela, a drugi kako bi trebalo da izgleda tabela posle primene makroa. dakle treba mi makro koji ce se kretati kroz kolonu A i kopirati brojeve u redove pored naziva robe i ukupno, a potom obrisati prazne redove. hvala
Prikačeni fajlovi
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2060
212.200.121.*

Sajt: www.gowi.rs


+77 Profil

icon Re: potreban makro za selekciju i kopiranje vrednosti09.08.2013. u 15:01 - pre 70 meseci
Nisam razumeo iz primera. Kako razpoznaješ kad se vrednost prebacuje u B, a kad u C kolonu?

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

gogi100
Goran Ljubic

Član broj: 40722
Poruke: 940
*.mediaworksit.net.



+3 Profil

icon Re: potreban makro za selekciju i kopiranje vrednosti09.08.2013. u 15:03 - pre 70 meseci
u Kolonu B se postavlja kad je vrednost u koloni A ukupno, a u C koloni sve druge vrednosti
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2060
212.200.121.*

Sajt: www.gowi.rs


+77 Profil

icon Re: potreban makro za selekciju i kopiranje vrednosti12.08.2013. u 08:48 - pre 70 meseci
Pošto si tražio rešenje pomoću VBA moglo bi nešto ovako.

Code:
Option Explicit
Sub Rasporedi()
' Rasporedjuje vrednosti iz kolone A na aktivnom listu
' U tabelu sa cetiri kolone na izabranom odredištu
' P.Jovanvovic za elitesecurity.org

Dim rngSource As Range
Dim rngDest As Range
Dim strNatpis As String
Dim DefRng As String
Dim i As Integer
Dim r As Integer, rstop As Integer
Dim c As Byte
' Izvorni podaci
On Error Resume Next
DefRng = Range("A4", Range("A4").End(xlDown).Address).Address
Set rngSource = Application.InputBox(Prompt:="Selektuj izvorne podatke", Title:="Range Select", Default:=DefRng, Type:=8)
If rngSource Is Nothing Then Exit Sub
If rngSource.Rows.Count Mod 4 > 0 Or _
  rngSource.Columns.Count > 1 Then
   MsgBox "Nesipravan izvorni opseg"
   Exit Sub
End If
' Odredište - samo gornja leva celija!
Set rngDest = Application.InputBox(Prompt:="Selektuj poèetnu æeliju za odrediste", Title:="Range Select", Type:=8)
If rngDest Is Nothing Then
  Exit Sub
End If

On Error GoTo 0
Set rngDest = rngDest.Resize(RowSize:=1, ColumnSize:=1)  ' Skracivanje izabranog opsega na samo jednu æeliju
rstop = rngSource.Rows.Count / 4 - 1
Set rngSource = rngSource.Cells(1, 1)
For r = 0 To rstop
      strNatpis = rngSource.Text
      rngDest.Offset(RowOffset:=r, ColumnOffset:=0).Value = strNatpis
   If UCase(Trim(strNatpis)) = "UKUPNO" Then
      c = 0
   Else
      c = 1
   End If
   For i = 1 To 3
      rngDest.Offset(RowOffset:=r, ColumnOffset:=i + c).Value = rngSource.Offset(RowOffset:=i).Value
   Next i
   Set rngSource = rngSource.Offset(RowOffset:=4)
Next r

End Sub


Interestantnije rešenje bilo bi koristeći Offset funkciju i bez VBA koda
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

gogi100
Goran Ljubic

Član broj: 40722
Poruke: 940
*.mediaworksit.net.



+3 Profil

icon Re: potreban makro za selekciju i kopiranje vrednosti12.08.2013. u 10:28 - pre 70 meseci
hvala, radi
 
Odgovor na temu

[es] :: Office :: Excel :: potreban makro za selekciju i kopiranje vrednosti

[ Pregleda: 2169 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.