Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > object doesn t support this property or metod
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 31
Default object doesn t support this property or metod
I have run time error "438"
object doesn t support this property or metod
in this line

Prod.Columnns(1).Name = "DATUM"

Can somebody help me this is my code


Sub Kreiraj()
Dim Dizv, Prod, Izv, Pt As Object
Dim Izvor As Range
Dim Dan, Mjesec, Godina As Integer
Dim Datum_p, Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

Set Prod = Worksheets("Prodaja")
Prod.Cells(1, 1).CurrentRegion.Name = "Podaci"
Prod.Columnns(1).Name = "DATUM"
Set Dizv = DialogSheets("DialogIzvjestaj")
Set Izv = Worksheets("Izvjestaj")
If Izv.ProtectContents = True Then
Izv.Unprotect
End If
Izv.Cells.Delete
If Dizv.OptonButtons(1).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Dan = CDate(Dizv.EditBoxes(1).Text)
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Dan = Date
End If
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(2, 10).Value = Dan
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "DNEVNI IZVJESTAJ "
Izv.Cells(2, 2).Value = "Dne:" & Dan
ElseIf Dizv.OptionButtons(2).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Datum_p = CDate(Dizv.EditBoxes(1).Text) -
Weekday(CDate(Dizv.EditBoxes(1).Text)) + 2
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Datum_p = Date - Weekday(Date) + 2
End If
Datum_zav = Datum_p + 7
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "TJEDNI IZVJESTAJ"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
ElseIf Dizv.OptionButtons(3).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Mjesec = Month(CDate(Dizv.EditBoxes(1).Text))
Godina = Year(CDate(Dizv.EditBoxes(1).Text))
Else
MsgBox prompt:="Mjesc nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Mjesec = Month(Date)
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "MJESEC"
Prod.Cells(2, 10).Formula = "=AND(MONTH(DATUM)= " & Mjesec & ",YEAR(DATUM)="
& Godina & ")"
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "MJESECNI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Mjesec:" & Mjesec & "/" & Godina
ElseIf Dizv.OptionButtons(4).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsNumeric(Dizv.EditBoxes(1).Text) Then
Godina = Dizv.EditBoxes(1).Text
Else
MsgBox prompt:="Godina nije ispravno unesena", Buttons:=vbExclamation
Exit Sub
End If
Else
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "GODINA"
Prod.Cells(2, 10).Formula = "=YEAR(DATUM)=" & Godina
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 10).Value = "GODISNJI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Godina: " & Godina
Else
If Dizv.EditBoxes(2).Text < "" And Dizv.EditBoxes(3).Text < "" Then
If IsDate(Dizv.EditBoxes(2).Text) And IsDate(Dizv.EditBoxes(3).Text) Then
Datum_p = CDate(Dizv.EditBoxes(2).Text)
Datum_zav = CDate(Dizv.EditBoxes(3).Text)
Else
MsgBox prompt:="Datumi nisu ispravno uneseni", Buttons:=vbExclamation
Exit Sub
End If
Else
MsgBox prompt:="Nedostaju podaci o razdoblju", Buttons:=vbExclamation
Exit Sub
End If

Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "IZVJESTAJ ZA RAZDOBLJE"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
End If
NoviRed = Prod.Cells(1, 1).CurrentRegion.Rows.Count + 2
Range("Podaci").AdvancedFilter action:=xlFilterCopy,
criteriaRange:=Range("Kriterij"), copyToRange:=Prod.Cells(NoviRed, 1)
On Error GoTo LErr

Set Pt = Prod.PivotTableWizard(SourceType:=xlDatabase,
SourceData:=Prod.Cells(NoviRed, 1).CurrentRegion,
tableDestination:=Izv.Cells(5, 1), HasAutoFormat:=True)
Pt.AddFields RowFields:="KNJIGA"
Pt.PivotFields("UKUPNO").Orientation = xlDataField
Pt.PivotFields("KOMADA").Orientation = xlDataField
Pt.PivotFields("Data").Orientation = xlColumnField
Pt.PivotFields("Data").Name = "REZULTATI PRODAJE"
Pt.PivotFields("Sum of UKUPNO").NumberFormat = "#,##0.00"
Pt.PivotFields("Sum of UKUPNO").Name = "Iznos prodaje (kn)"
Pt.PivotFields("Sum of KOMADA").Name = "Broj prodanih knjiga"
Izv.Cells(1, 2).Font.Name = "HRHelvbold"
Izv.Cells(1, 2).Font.Size = 18
Izv.Cells(1, 2).Font.Bold = True

Izv.Cells(7, 1).CurrentRegion.AutoFormat Format:=xlClassic2
ActiveWorkbook.Names("Podaci").Delete
Prod.Cells(NoviRed, 1).CurrentRegion.Delete
If Dizv.ChekBoxes(1).Value = xlOn Then
brojredova = Izv.Cells(7, 1).CurrentRegion.Rows.Count
Set Izvor = Izv.Cells(7, 1).Resize(brojredova - 3, 2)
Izv.ChartObjects.Add(0, (brojredova + 8) * 12, 350, 220).Select
ActiveChart.ChartWizard Source:=Izvor, Gallery:=xlColumn, Format:=6,
PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=2,
Title:="Knjge", ValueTitle:="Iznos prodaje (kn)", ExtraTitle:=""
End If
Izv.Protect
Exit Sub
LErr:
MsgBox prompt:="Nema podataka za odabrano razdoblje",
Buttons:=vbExclamation
ActiveWorkbook.Names("Podaci").Delete
Prod: Cells(NoviRed, 1).CurrentRegion.Delete
End Sub


Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 35,218
Default object doesn t support this property or metod
Could it be you have too many n's in:

Columnns
maybe
Prod.Columns(1).Name = "DATUM"
would fix it.


Ivica Lopar wrote:

I have run time error "438"
object doesn t support this property or metod
in this line

Prod.Columnns(1).Name = "DATUM"

Can somebody help me this is my code

Sub Kreiraj()
Dim Dizv, Prod, Izv, Pt As Object
Dim Izvor As Range
Dim Dan, Mjesec, Godina As Integer
Dim Datum_p, Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

Set Prod = Worksheets("Prodaja")
Prod.Cells(1, 1).CurrentRegion.Name = "Podaci"
Prod.Columnns(1).Name = "DATUM"
Set Dizv = DialogSheets("DialogIzvjestaj")
Set Izv = Worksheets("Izvjestaj")
If Izv.ProtectContents = True Then
Izv.Unprotect
End If
Izv.Cells.Delete
If Dizv.OptonButtons(1).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Dan = CDate(Dizv.EditBoxes(1).Text)
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Dan = Date
End If
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(2, 10).Value = Dan
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "DNEVNI IZVJESTAJ "
Izv.Cells(2, 2).Value = "Dne:" & Dan
ElseIf Dizv.OptionButtons(2).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Datum_p = CDate(Dizv.EditBoxes(1).Text) -
Weekday(CDate(Dizv.EditBoxes(1).Text)) + 2
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Datum_p = Date - Weekday(Date) + 2
End If
Datum_zav = Datum_p + 7
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "TJEDNI IZVJESTAJ"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
ElseIf Dizv.OptionButtons(3).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Mjesec = Month(CDate(Dizv.EditBoxes(1).Text))
Godina = Year(CDate(Dizv.EditBoxes(1).Text))
Else
MsgBox prompt:="Mjesc nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Mjesec = Month(Date)
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "MJESEC"
Prod.Cells(2, 10).Formula = "=AND(MONTH(DATUM)= " & Mjesec & ",YEAR(DATUM)="
& Godina & ")"
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "MJESECNI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Mjesec:" & Mjesec & "/" & Godina
ElseIf Dizv.OptionButtons(4).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsNumeric(Dizv.EditBoxes(1).Text) Then
Godina = Dizv.EditBoxes(1).Text
Else
MsgBox prompt:="Godina nije ispravno unesena", Buttons:=vbExclamation
Exit Sub
End If
Else
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "GODINA"
Prod.Cells(2, 10).Formula = "=YEAR(DATUM)=" & Godina
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 10).Value = "GODISNJI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Godina: " & Godina
Else
If Dizv.EditBoxes(2).Text < "" And Dizv.EditBoxes(3).Text < "" Then
If IsDate(Dizv.EditBoxes(2).Text) And IsDate(Dizv.EditBoxes(3).Text) Then
Datum_p = CDate(Dizv.EditBoxes(2).Text)
Datum_zav = CDate(Dizv.EditBoxes(3).Text)
Else
MsgBox prompt:="Datumi nisu ispravno uneseni", Buttons:=vbExclamation
Exit Sub
End If
Else
MsgBox prompt:="Nedostaju podaci o razdoblju", Buttons:=vbExclamation
Exit Sub
End If

Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "IZVJESTAJ ZA RAZDOBLJE"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
End If
NoviRed = Prod.Cells(1, 1).CurrentRegion.Rows.Count + 2
Range("Podaci").AdvancedFilter action:=xlFilterCopy,
criteriaRange:=Range("Kriterij"), copyToRange:=Prod.Cells(NoviRed, 1)
On Error GoTo LErr

Set Pt = Prod.PivotTableWizard(SourceType:=xlDatabase,
SourceData:=Prod.Cells(NoviRed, 1).CurrentRegion,
tableDestination:=Izv.Cells(5, 1), HasAutoFormat:=True)
Pt.AddFields RowFields:="KNJIGA"
Pt.PivotFields("UKUPNO").Orientation = xlDataField
Pt.PivotFields("KOMADA").Orientation = xlDataField
Pt.PivotFields("Data").Orientation = xlColumnField
Pt.PivotFields("Data").Name = "REZULTATI PRODAJE"
Pt.PivotFields("Sum of UKUPNO").NumberFormat = "#,##0.00"
Pt.PivotFields("Sum of UKUPNO").Name = "Iznos prodaje (kn)"
Pt.PivotFields("Sum of KOMADA").Name = "Broj prodanih knjiga"
Izv.Cells(1, 2).Font.Name = "HRHelvbold"
Izv.Cells(1, 2).Font.Size = 18
Izv.Cells(1, 2).Font.Bold = True

Izv.Cells(7, 1).CurrentRegion.AutoFormat Format:=xlClassic2
ActiveWorkbook.Names("Podaci").Delete
Prod.Cells(NoviRed, 1).CurrentRegion.Delete
If Dizv.ChekBoxes(1).Value = xlOn Then
brojredova = Izv.Cells(7, 1).CurrentRegion.Rows.Count
Set Izvor = Izv.Cells(7, 1).Resize(brojredova - 3, 2)
Izv.ChartObjects.Add(0, (brojredova + 8) * 12, 350, 220).Select
ActiveChart.ChartWizard Source:=Izvor, Gallery:=xlColumn, Format:=6,
PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=2,
Title:="Knjge", ValueTitle:="Iznos prodaje (kn)", ExtraTitle:=""
End If
Izv.Protect
Exit Sub
LErr:
MsgBox prompt:="Nema podataka za odabrano razdoblje",
Buttons:=vbExclamation
ActiveWorkbook.Names("Podaci").Delete
Prod: Cells(NoviRed, 1).CurrentRegion.Delete
End Sub

--

Dave Peterson
Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1,119
Default object doesn t support this property or metod
You have 2 n's
Prod.Columns(1).Name = "DATUM"

You should look at this link though on how to declare variables. Your
declarations are not what you think they are...

http://www.cpearson.com/excel/variables.htm

--
HTH...

Jim Thomlinson


"Ivica Lopar" wrote:

I have run time error "438"
object doesn t support this property or metod
in this line

Prod.Columnns(1).Name = "DATUM"

Can somebody help me this is my code


Sub Kreiraj()
Dim Dizv, Prod, Izv, Pt As Object
Dim Izvor As Range
Dim Dan, Mjesec, Godina As Integer
Dim Datum_p, Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

Set Prod = Worksheets("Prodaja")
Prod.Cells(1, 1).CurrentRegion.Name = "Podaci"
Prod.Columnns(1).Name = "DATUM"
Set Dizv = DialogSheets("DialogIzvjestaj")
Set Izv = Worksheets("Izvjestaj")
If Izv.ProtectContents = True Then
Izv.Unprotect
End If
Izv.Cells.Delete
If Dizv.OptonButtons(1).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Dan = CDate(Dizv.EditBoxes(1).Text)
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Dan = Date
End If
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(2, 10).Value = Dan
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "DNEVNI IZVJESTAJ "
Izv.Cells(2, 2).Value = "Dne:" & Dan
ElseIf Dizv.OptionButtons(2).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Datum_p = CDate(Dizv.EditBoxes(1).Text) -
Weekday(CDate(Dizv.EditBoxes(1).Text)) + 2
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Datum_p = Date - Weekday(Date) + 2
End If
Datum_zav = Datum_p + 7
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "TJEDNI IZVJESTAJ"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
ElseIf Dizv.OptionButtons(3).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Mjesec = Month(CDate(Dizv.EditBoxes(1).Text))
Godina = Year(CDate(Dizv.EditBoxes(1).Text))
Else
MsgBox prompt:="Mjesc nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Mjesec = Month(Date)
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "MJESEC"
Prod.Cells(2, 10).Formula = "=AND(MONTH(DATUM)= " & Mjesec & ",YEAR(DATUM)="
& Godina & ")"
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "MJESECNI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Mjesec:" & Mjesec & "/" & Godina
ElseIf Dizv.OptionButtons(4).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsNumeric(Dizv.EditBoxes(1).Text) Then
Godina = Dizv.EditBoxes(1).Text
Else
MsgBox prompt:="Godina nije ispravno unesena", Buttons:=vbExclamation
Exit Sub
End If
Else
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "GODINA"
Prod.Cells(2, 10).Formula = "=YEAR(DATUM)=" & Godina
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 10).Value = "GODISNJI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Godina: " & Godina
Else
If Dizv.EditBoxes(2).Text < "" And Dizv.EditBoxes(3).Text < "" Then
If IsDate(Dizv.EditBoxes(2).Text) And IsDate(Dizv.EditBoxes(3).Text) Then
Datum_p = CDate(Dizv.EditBoxes(2).Text)
Datum_zav = CDate(Dizv.EditBoxes(3).Text)
Else
MsgBox prompt:="Datumi nisu ispravno uneseni", Buttons:=vbExclamation
Exit Sub
End If
Else
MsgBox prompt:="Nedostaju podaci o razdoblju", Buttons:=vbExclamation
Exit Sub
End If

Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "IZVJESTAJ ZA RAZDOBLJE"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
End If
NoviRed = Prod.Cells(1, 1).CurrentRegion.Rows.Count + 2
Range("Podaci").AdvancedFilter action:=xlFilterCopy,
criteriaRange:=Range("Kriterij"), copyToRange:=Prod.Cells(NoviRed, 1)
On Error GoTo LErr

Set Pt = Prod.PivotTableWizard(SourceType:=xlDatabase,
SourceData:=Prod.Cells(NoviRed, 1).CurrentRegion,
tableDestination:=Izv.Cells(5, 1), HasAutoFormat:=True)
Pt.AddFields RowFields:="KNJIGA"
Pt.PivotFields("UKUPNO").Orientation = xlDataField
Pt.PivotFields("KOMADA").Orientation = xlDataField
Pt.PivotFields("Data").Orientation = xlColumnField
Pt.PivotFields("Data").Name = "REZULTATI PRODAJE"
Pt.PivotFields("Sum of UKUPNO").NumberFormat = "#,##0.00"
Pt.PivotFields("Sum of UKUPNO").Name = "Iznos prodaje (kn)"
Pt.PivotFields("Sum of KOMADA").Name = "Broj prodanih knjiga"
Izv.Cells(1, 2).Font.Name = "HRHelvbold"
Izv.Cells(1, 2).Font.Size = 18
Izv.Cells(1, 2).Font.Bold = True

Izv.Cells(7, 1).CurrentRegion.AutoFormat Format:=xlClassic2
ActiveWorkbook.Names("Podaci").Delete
Prod.Cells(NoviRed, 1).CurrentRegion.Delete
If Dizv.ChekBoxes(1).Value = xlOn Then
brojredova = Izv.Cells(7, 1).CurrentRegion.Rows.Count
Set Izvor = Izv.Cells(7, 1).Resize(brojredova - 3, 2)
Izv.ChartObjects.Add(0, (brojredova + 8) * 12, 350, 220).Select
ActiveChart.ChartWizard Source:=Izvor, Gallery:=xlColumn, Format:=6,
PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=2,
Title:="Knjge", ValueTitle:="Iznos prodaje (kn)", ExtraTitle:=""
End If
Izv.Protect
Exit Sub
LErr:
MsgBox prompt:="Nema podataka za odabrano razdoblje",
Buttons:=vbExclamation
ActiveWorkbook.Names("Podaci").Delete
Prod: Cells(NoviRed, 1).CurrentRegion.Delete
End Sub



Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 4,339
Default object doesn t support this property or metod
Prod.Columns(1).Name = "DATUM"

Typo - two "n"s in column(n)s?

"Ivica Lopar" wrote:

I have run time error "438"
object doesn t support this property or metod
in this line

Prod.Columnns(1).Name = "DATUM"

Can somebody help me this is my code


Sub Kreiraj()
Dim Dizv, Prod, Izv, Pt As Object
Dim Izvor As Range
Dim Dan, Mjesec, Godina As Integer
Dim Datum_p, Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

Set Prod = Worksheets("Prodaja")
Prod.Cells(1, 1).CurrentRegion.Name = "Podaci"
Prod.Columnns(1).Name = "DATUM"
Set Dizv = DialogSheets("DialogIzvjestaj")
Set Izv = Worksheets("Izvjestaj")
If Izv.ProtectContents = True Then
Izv.Unprotect
End If
Izv.Cells.Delete
If Dizv.OptonButtons(1).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Dan = CDate(Dizv.EditBoxes(1).Text)
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Dan = Date
End If
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(2, 10).Value = Dan
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "DNEVNI IZVJESTAJ "
Izv.Cells(2, 2).Value = "Dne:" & Dan
ElseIf Dizv.OptionButtons(2).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Datum_p = CDate(Dizv.EditBoxes(1).Text) -
Weekday(CDate(Dizv.EditBoxes(1).Text)) + 2
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Datum_p = Date - Weekday(Date) + 2
End If
Datum_zav = Datum_p + 7
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "TJEDNI IZVJESTAJ"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
ElseIf Dizv.OptionButtons(3).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Mjesec = Month(CDate(Dizv.EditBoxes(1).Text))
Godina = Year(CDate(Dizv.EditBoxes(1).Text))
Else
MsgBox prompt:="Mjesc nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Mjesec = Month(Date)
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "MJESEC"
Prod.Cells(2, 10).Formula = "=AND(MONTH(DATUM)= " & Mjesec & ",YEAR(DATUM)="
& Godina & ")"
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "MJESECNI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Mjesec:" & Mjesec & "/" & Godina
ElseIf Dizv.OptionButtons(4).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsNumeric(Dizv.EditBoxes(1).Text) Then
Godina = Dizv.EditBoxes(1).Text
Else
MsgBox prompt:="Godina nije ispravno unesena", Buttons:=vbExclamation
Exit Sub
End If
Else
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "GODINA"
Prod.Cells(2, 10).Formula = "=YEAR(DATUM)=" & Godina
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 10).Value = "GODISNJI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Godina: " & Godina
Else
If Dizv.EditBoxes(2).Text < "" And Dizv.EditBoxes(3).Text < "" Then
If IsDate(Dizv.EditBoxes(2).Text) And IsDate(Dizv.EditBoxes(3).Text) Then
Datum_p = CDate(Dizv.EditBoxes(2).Text)
Datum_zav = CDate(Dizv.EditBoxes(3).Text)
Else
MsgBox prompt:="Datumi nisu ispravno uneseni", Buttons:=vbExclamation
Exit Sub
End If
Else
MsgBox prompt:="Nedostaju podaci o razdoblju", Buttons:=vbExclamation
Exit Sub
End If

Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "IZVJESTAJ ZA RAZDOBLJE"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
End If
NoviRed = Prod.Cells(1, 1).CurrentRegion.Rows.Count + 2
Range("Podaci").AdvancedFilter action:=xlFilterCopy,
criteriaRange:=Range("Kriterij"), copyToRange:=Prod.Cells(NoviRed, 1)
On Error GoTo LErr

Set Pt = Prod.PivotTableWizard(SourceType:=xlDatabase,
SourceData:=Prod.Cells(NoviRed, 1).CurrentRegion,
tableDestination:=Izv.Cells(5, 1), HasAutoFormat:=True)
Pt.AddFields RowFields:="KNJIGA"
Pt.PivotFields("UKUPNO").Orientation = xlDataField
Pt.PivotFields("KOMADA").Orientation = xlDataField
Pt.PivotFields("Data").Orientation = xlColumnField
Pt.PivotFields("Data").Name = "REZULTATI PRODAJE"
Pt.PivotFields("Sum of UKUPNO").NumberFormat = "#,##0.00"
Pt.PivotFields("Sum of UKUPNO").Name = "Iznos prodaje (kn)"
Pt.PivotFields("Sum of KOMADA").Name = "Broj prodanih knjiga"
Izv.Cells(1, 2).Font.Name = "HRHelvbold"
Izv.Cells(1, 2).Font.Size = 18
Izv.Cells(1, 2).Font.Bold = True

Izv.Cells(7, 1).CurrentRegion.AutoFormat Format:=xlClassic2
ActiveWorkbook.Names("Podaci").Delete
Prod.Cells(NoviRed, 1).CurrentRegion.Delete
If Dizv.ChekBoxes(1).Value = xlOn Then
brojredova = Izv.Cells(7, 1).CurrentRegion.Rows.Count
Set Izvor = Izv.Cells(7, 1).Resize(brojredova - 3, 2)
Izv.ChartObjects.Add(0, (brojredova + 8) * 12, 350, 220).Select
ActiveChart.ChartWizard Source:=Izvor, Gallery:=xlColumn, Format:=6,
PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=2,
Title:="Knjge", ValueTitle:="Iznos prodaje (kn)", ExtraTitle:=""
End If
Izv.Protect
Exit Sub
LErr:
MsgBox prompt:="Nema podataka za odabrano razdoblje",
Buttons:=vbExclamation
ActiveWorkbook.Names("Podaci").Delete
Prod: Cells(NoviRed, 1).CurrentRegion.Delete
End Sub



Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 31
Default object doesn t support this property or metod
Cam you help me with declaring variables in this code

regards
lopar


"Jim Thomlinson" wrote in message
...
You have 2 n's
Prod.Columns(1).Name = "DATUM"

You should look at this link though on how to declare variables. Your
declarations are not what you think they are...

http://www.cpearson.com/excel/variables.htm

--
HTH...

Jim Thomlinson


"Ivica Lopar" wrote:

I have run time error "438"
object doesn t support this property or metod
in this line

Prod.Columnns(1).Name = "DATUM"

Can somebody help me this is my code


Sub Kreiraj()
Dim Dizv, Prod, Izv, Pt As Object
Dim Izvor As Range
Dim Dan, Mjesec, Godina As Integer
Dim Datum_p, Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

Set Prod = Worksheets("Prodaja")
Prod.Cells(1, 1).CurrentRegion.Name = "Podaci"
Prod.Columnns(1).Name = "DATUM"
Set Dizv = DialogSheets("DialogIzvjestaj")
Set Izv = Worksheets("Izvjestaj")
If Izv.ProtectContents = True Then
Izv.Unprotect
End If
Izv.Cells.Delete
If Dizv.OptonButtons(1).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Dan = CDate(Dizv.EditBoxes(1).Text)
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Dan = Date
End If
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(2, 10).Value = Dan
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "DNEVNI IZVJESTAJ "
Izv.Cells(2, 2).Value = "Dne:" & Dan
ElseIf Dizv.OptionButtons(2).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Datum_p = CDate(Dizv.EditBoxes(1).Text) -
Weekday(CDate(Dizv.EditBoxes(1).Text)) + 2
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Datum_p = Date - Weekday(Date) + 2
End If
Datum_zav = Datum_p + 7
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "TJEDNI IZVJESTAJ"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
ElseIf Dizv.OptionButtons(3).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Mjesec = Month(CDate(Dizv.EditBoxes(1).Text))
Godina = Year(CDate(Dizv.EditBoxes(1).Text))
Else
MsgBox prompt:="Mjesc nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Mjesec = Month(Date)
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "MJESEC"
Prod.Cells(2, 10).Formula = "=AND(MONTH(DATUM)= " & Mjesec &
",YEAR(DATUM)="
& Godina & ")"
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "MJESECNI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Mjesec:" & Mjesec & "/" & Godina
ElseIf Dizv.OptionButtons(4).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsNumeric(Dizv.EditBoxes(1).Text) Then
Godina = Dizv.EditBoxes(1).Text
Else
MsgBox prompt:="Godina nije ispravno unesena", Buttons:=vbExclamation
Exit Sub
End If
Else
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "GODINA"
Prod.Cells(2, 10).Formula = "=YEAR(DATUM)=" & Godina
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 10).Value = "GODISNJI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Godina: " & Godina
Else
If Dizv.EditBoxes(2).Text < "" And Dizv.EditBoxes(3).Text < "" Then
If IsDate(Dizv.EditBoxes(2).Text) And IsDate(Dizv.EditBoxes(3).Text) Then
Datum_p = CDate(Dizv.EditBoxes(2).Text)
Datum_zav = CDate(Dizv.EditBoxes(3).Text)
Else
MsgBox prompt:="Datumi nisu ispravno uneseni", Buttons:=vbExclamation
Exit Sub
End If
Else
MsgBox prompt:="Nedostaju podaci o razdoblju", Buttons:=vbExclamation
Exit Sub
End If

Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "IZVJESTAJ ZA RAZDOBLJE"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
End If
NoviRed = Prod.Cells(1, 1).CurrentRegion.Rows.Count + 2
Range("Podaci").AdvancedFilter action:=xlFilterCopy,
criteriaRange:=Range("Kriterij"), copyToRange:=Prod.Cells(NoviRed, 1)
On Error GoTo LErr

Set Pt = Prod.PivotTableWizard(SourceType:=xlDatabase,
SourceData:=Prod.Cells(NoviRed, 1).CurrentRegion,
tableDestination:=Izv.Cells(5, 1), HasAutoFormat:=True)
Pt.AddFields RowFields:="KNJIGA"
Pt.PivotFields("UKUPNO").Orientation = xlDataField
Pt.PivotFields("KOMADA").Orientation = xlDataField
Pt.PivotFields("Data").Orientation = xlColumnField
Pt.PivotFields("Data").Name = "REZULTATI PRODAJE"
Pt.PivotFields("Sum of UKUPNO").NumberFormat = "#,##0.00"
Pt.PivotFields("Sum of UKUPNO").Name = "Iznos prodaje (kn)"
Pt.PivotFields("Sum of KOMADA").Name = "Broj prodanih knjiga"
Izv.Cells(1, 2).Font.Name = "HRHelvbold"
Izv.Cells(1, 2).Font.Size = 18
Izv.Cells(1, 2).Font.Bold = True

Izv.Cells(7, 1).CurrentRegion.AutoFormat Format:=xlClassic2
ActiveWorkbook.Names("Podaci").Delete
Prod.Cells(NoviRed, 1).CurrentRegion.Delete
If Dizv.ChekBoxes(1).Value = xlOn Then
brojredova = Izv.Cells(7, 1).CurrentRegion.Rows.Count
Set Izvor = Izv.Cells(7, 1).Resize(brojredova - 3, 2)
Izv.ChartObjects.Add(0, (brojredova + 8) * 12, 350, 220).Select
ActiveChart.ChartWizard Source:=Izvor, Gallery:=xlColumn, Format:=6,
PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=2,
Title:="Knjge", ValueTitle:="Iznos prodaje (kn)", ExtraTitle:=""
End If
Izv.Protect
Exit Sub
LErr:
MsgBox prompt:="Nema podataka za odabrano razdoblje",
Buttons:=vbExclamation
ActiveWorkbook.Names("Podaci").Delete
Prod: Cells(NoviRed, 1).CurrentRegion.Delete
End Sub





Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 31
Default object doesn t support this property or metod
Now I have run time error "1004"
Application-defined or object defined error
in this line of code

ActiveWorkbook.Names("Podaci").Delete





"Toppers" wrote in message
...
Prod.Columns(1).Name = "DATUM"

Typo - two "n"s in column(n)s?

"Ivica Lopar" wrote:

I have run time error "438"
object doesn t support this property or metod
in this line

Prod.Columnns(1).Name = "DATUM"

Can somebody help me this is my code


Sub Kreiraj()
Dim Dizv, Prod, Izv, Pt As Object
Dim Izvor As Range
Dim Dan, Mjesec, Godina As Integer
Dim Datum_p, Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

Set Prod = Worksheets("Prodaja")
Prod.Cells(1, 1).CurrentRegion.Name = "Podaci"
Prod.Columnns(1).Name = "DATUM"
Set Dizv = DialogSheets("DialogIzvjestaj")
Set Izv = Worksheets("Izvjestaj")
If Izv.ProtectContents = True Then
Izv.Unprotect
End If
Izv.Cells.Delete
If Dizv.OptonButtons(1).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Dan = CDate(Dizv.EditBoxes(1).Text)
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Dan = Date
End If
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(2, 10).Value = Dan
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "DNEVNI IZVJESTAJ "
Izv.Cells(2, 2).Value = "Dne:" & Dan
ElseIf Dizv.OptionButtons(2).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Datum_p = CDate(Dizv.EditBoxes(1).Text) -
Weekday(CDate(Dizv.EditBoxes(1).Text)) + 2
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Datum_p = Date - Weekday(Date) + 2
End If
Datum_zav = Datum_p + 7
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "TJEDNI IZVJESTAJ"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
ElseIf Dizv.OptionButtons(3).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Mjesec = Month(CDate(Dizv.EditBoxes(1).Text))
Godina = Year(CDate(Dizv.EditBoxes(1).Text))
Else
MsgBox prompt:="Mjesc nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Mjesec = Month(Date)
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "MJESEC"
Prod.Cells(2, 10).Formula = "=AND(MONTH(DATUM)= " & Mjesec &
",YEAR(DATUM)="
& Godina & ")"
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "MJESECNI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Mjesec:" & Mjesec & "/" & Godina
ElseIf Dizv.OptionButtons(4).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsNumeric(Dizv.EditBoxes(1).Text) Then
Godina = Dizv.EditBoxes(1).Text
Else
MsgBox prompt:="Godina nije ispravno unesena", Buttons:=vbExclamation
Exit Sub
End If
Else
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "GODINA"
Prod.Cells(2, 10).Formula = "=YEAR(DATUM)=" & Godina
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 10).Value = "GODISNJI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Godina: " & Godina
Else
If Dizv.EditBoxes(2).Text < "" And Dizv.EditBoxes(3).Text < "" Then
If IsDate(Dizv.EditBoxes(2).Text) And IsDate(Dizv.EditBoxes(3).Text) Then
Datum_p = CDate(Dizv.EditBoxes(2).Text)
Datum_zav = CDate(Dizv.EditBoxes(3).Text)
Else
MsgBox prompt:="Datumi nisu ispravno uneseni", Buttons:=vbExclamation
Exit Sub
End If
Else
MsgBox prompt:="Nedostaju podaci o razdoblju", Buttons:=vbExclamation
Exit Sub
End If

Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "IZVJESTAJ ZA RAZDOBLJE"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
End If
NoviRed = Prod.Cells(1, 1).CurrentRegion.Rows.Count + 2
Range("Podaci").AdvancedFilter action:=xlFilterCopy,
criteriaRange:=Range("Kriterij"), copyToRange:=Prod.Cells(NoviRed, 1)
On Error GoTo LErr

Set Pt = Prod.PivotTableWizard(SourceType:=xlDatabase,
SourceData:=Prod.Cells(NoviRed, 1).CurrentRegion,
tableDestination:=Izv.Cells(5, 1), HasAutoFormat:=True)
Pt.AddFields RowFields:="KNJIGA"
Pt.PivotFields("UKUPNO").Orientation = xlDataField
Pt.PivotFields("KOMADA").Orientation = xlDataField
Pt.PivotFields("Data").Orientation = xlColumnField
Pt.PivotFields("Data").Name = "REZULTATI PRODAJE"
Pt.PivotFields("Sum of UKUPNO").NumberFormat = "#,##0.00"
Pt.PivotFields("Sum of UKUPNO").Name = "Iznos prodaje (kn)"
Pt.PivotFields("Sum of KOMADA").Name = "Broj prodanih knjiga"
Izv.Cells(1, 2).Font.Name = "HRHelvbold"
Izv.Cells(1, 2).Font.Size = 18
Izv.Cells(1, 2).Font.Bold = True

Izv.Cells(7, 1).CurrentRegion.AutoFormat Format:=xlClassic2
ActiveWorkbook.Names("Podaci").Delete
Prod.Cells(NoviRed, 1).CurrentRegion.Delete
If Dizv.ChekBoxes(1).Value = xlOn Then
brojredova = Izv.Cells(7, 1).CurrentRegion.Rows.Count
Set Izvor = Izv.Cells(7, 1).Resize(brojredova - 3, 2)
Izv.ChartObjects.Add(0, (brojredova + 8) * 12, 350, 220).Select
ActiveChart.ChartWizard Source:=Izvor, Gallery:=xlColumn, Format:=6,
PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=2,
Title:="Knjge", ValueTitle:="Iznos prodaje (kn)", ExtraTitle:=""
End If
Izv.Protect
Exit Sub
LErr:
MsgBox prompt:="Nema podataka za odabrano razdoblje",
Buttons:=vbExclamation
ActiveWorkbook.Names("Podaci").Delete
Prod: Cells(NoviRed, 1).CurrentRegion.Delete
End Sub





Reply With QuoteReply With Quote
  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 7,247
Default object doesn t support this property or metod
You'll get that error if the name does not exist. Are you sure
you have such a name?


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Ivica Lopar" wrote in message
...
Now I have run time error "1004"
Application-defined or object defined error
in this line of code

ActiveWorkbook.Names("Podaci").Delete





"Toppers" wrote in message
...
Prod.Columns(1).Name = "DATUM"

Typo - two "n"s in column(n)s?

"Ivica Lopar" wrote:

I have run time error "438"
object doesn t support this property or metod
in this line

Prod.Columnns(1).Name = "DATUM"

Can somebody help me this is my code


Sub Kreiraj()
Dim Dizv, Prod, Izv, Pt As Object
Dim Izvor As Range
Dim Dan, Mjesec, Godina As Integer
Dim Datum_p, Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

Set Prod = Worksheets("Prodaja")
Prod.Cells(1, 1).CurrentRegion.Name = "Podaci"
Prod.Columnns(1).Name = "DATUM"
Set Dizv = DialogSheets("DialogIzvjestaj")
Set Izv = Worksheets("Izvjestaj")
If Izv.ProtectContents = True Then
Izv.Unprotect
End If
Izv.Cells.Delete
If Dizv.OptonButtons(1).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Dan = CDate(Dizv.EditBoxes(1).Text)
Else
MsgBox prompt:="Datum nije ispravno unesen",
Buttons:=vbExclamation
Exit Sub
End If
Else
Dan = Date
End If
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(2, 10).Value = Dan
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "DNEVNI IZVJESTAJ "
Izv.Cells(2, 2).Value = "Dne:" & Dan
ElseIf Dizv.OptionButtons(2).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Datum_p = CDate(Dizv.EditBoxes(1).Text) -
Weekday(CDate(Dizv.EditBoxes(1).Text)) + 2
Else
MsgBox prompt:="Datum nije ispravno unesen",
Buttons:=vbExclamation
Exit Sub
End If
Else
Datum_p = Date - Weekday(Date) + 2
End If
Datum_zav = Datum_p + 7
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "TJEDNI IZVJESTAJ"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
ElseIf Dizv.OptionButtons(3).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Mjesec = Month(CDate(Dizv.EditBoxes(1).Text))
Godina = Year(CDate(Dizv.EditBoxes(1).Text))
Else
MsgBox prompt:="Mjesc nije ispravno unesen",
Buttons:=vbExclamation
Exit Sub
End If
Else
Mjesec = Month(Date)
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "MJESEC"
Prod.Cells(2, 10).Formula = "=AND(MONTH(DATUM)= " & Mjesec &
",YEAR(DATUM)="
& Godina & ")"
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "MJESECNI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Mjesec:" & Mjesec & "/" & Godina
ElseIf Dizv.OptionButtons(4).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsNumeric(Dizv.EditBoxes(1).Text) Then
Godina = Dizv.EditBoxes(1).Text
Else
MsgBox prompt:="Godina nije ispravno unesena",
Buttons:=vbExclamation
Exit Sub
End If
Else
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "GODINA"
Prod.Cells(2, 10).Formula = "=YEAR(DATUM)=" & Godina
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 10).Value = "GODISNJI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Godina: " & Godina
Else
If Dizv.EditBoxes(2).Text < "" And Dizv.EditBoxes(3).Text <
"" Then
If IsDate(Dizv.EditBoxes(2).Text) And
IsDate(Dizv.EditBoxes(3).Text) Then
Datum_p = CDate(Dizv.EditBoxes(2).Text)
Datum_zav = CDate(Dizv.EditBoxes(3).Text)
Else
MsgBox prompt:="Datumi nisu ispravno uneseni",
Buttons:=vbExclamation
Exit Sub
End If
Else
MsgBox prompt:="Nedostaju podaci o razdoblju",
Buttons:=vbExclamation
Exit Sub
End If

Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "IZVJESTAJ ZA RAZDOBLJE"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
End If
NoviRed = Prod.Cells(1, 1).CurrentRegion.Rows.Count + 2
Range("Podaci").AdvancedFilter action:=xlFilterCopy,
criteriaRange:=Range("Kriterij"),
copyToRange:=Prod.Cells(NoviRed, 1)
On Error GoTo LErr

Set Pt = Prod.PivotTableWizard(SourceType:=xlDatabase,
SourceData:=Prod.Cells(NoviRed, 1).CurrentRegion,
tableDestination:=Izv.Cells(5, 1), HasAutoFormat:=True)
Pt.AddFields RowFields:="KNJIGA"
Pt.PivotFields("UKUPNO").Orientation = xlDataField
Pt.PivotFields("KOMADA").Orientation = xlDataField
Pt.PivotFields("Data").Orientation = xlColumnField
Pt.PivotFields("Data").Name = "REZULTATI PRODAJE"
Pt.PivotFields("Sum of UKUPNO").NumberFormat = "#,##0.00"
Pt.PivotFields("Sum of UKUPNO").Name = "Iznos prodaje (kn)"
Pt.PivotFields("Sum of KOMADA").Name = "Broj prodanih
knjiga"
Izv.Cells(1, 2).Font.Name = "HRHelvbold"
Izv.Cells(1, 2).Font.Size = 18
Izv.Cells(1, 2).Font.Bold = True

Izv.Cells(7, 1).CurrentRegion.AutoFormat Format:=xlClassic2
ActiveWorkbook.Names("Podaci").Delete
Prod.Cells(NoviRed, 1).CurrentRegion.Delete
If Dizv.ChekBoxes(1).Value = xlOn Then
brojredova = Izv.Cells(7, 1).CurrentRegion.Rows.Count
Set Izvor = Izv.Cells(7, 1).Resize(brojredova - 3, 2)
Izv.ChartObjects.Add(0, (brojredova + 8) * 12, 350,
220).Select
ActiveChart.ChartWizard Source:=Izvor, Gallery:=xlColumn,
Format:=6,
PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0,
HasLegend:=2,
Title:="Knjge", ValueTitle:="Iznos prodaje (kn)",
ExtraTitle:=""
End If
Izv.Protect
Exit Sub
LErr:
MsgBox prompt:="Nema podataka za odabrano razdoblje",
Buttons:=vbExclamation
ActiveWorkbook.Names("Podaci").Delete
Prod: Cells(NoviRed, 1).CurrentRegion.Delete
End Sub







Reply With QuoteReply With Quote
  #8   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1,119
Default object doesn t support this property or metod
Sub Kreiraj()
Dim Dizv As Object
Dim Prod As Object
Dim Izv As Object
Dim Pt As Object
Dim Izvor As Range
Dim Dan As Integer
Dim Mjesec As Integer
Dim Godina As Integer
Dim Datum_p As Date
Dim Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

otherwise most of what you had declared will actually be of type variant...
--
HTH...

Jim Thomlinson


"Ivica Lopar" wrote:

Cam you help me with declaring variables in this code

regards
lopar


"Jim Thomlinson" wrote in message
...
You have 2 n's
Prod.Columns(1).Name = "DATUM"

You should look at this link though on how to declare variables. Your
declarations are not what you think they are...

http://www.cpearson.com/excel/variables.htm

--
HTH...

Jim Thomlinson


"Ivica Lopar" wrote:

I have run time error "438"
object doesn t support this property or metod
in this line

Prod.Columnns(1).Name = "DATUM"

Can somebody help me this is my code


Sub Kreiraj()
Dim Dizv, Prod, Izv, Pt As Object
Dim Izvor As Range
Dim Dan, Mjesec, Godina As Integer
Dim Datum_p, Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

Set Prod = Worksheets("Prodaja")
Prod.Cells(1, 1).CurrentRegion.Name = "Podaci"
Prod.Columnns(1).Name = "DATUM"
Set Dizv = DialogSheets("DialogIzvjestaj")
Set Izv = Worksheets("Izvjestaj")
If Izv.ProtectContents = True Then
Izv.Unprotect
End If
Izv.Cells.Delete
If Dizv.OptonButtons(1).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Dan = CDate(Dizv.EditBoxes(1).Text)
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Dan = Date
End If
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(2, 10).Value = Dan
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "DNEVNI IZVJESTAJ "
Izv.Cells(2, 2).Value = "Dne:" & Dan
ElseIf Dizv.OptionButtons(2).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Datum_p = CDate(Dizv.EditBoxes(1).Text) -
Weekday(CDate(Dizv.EditBoxes(1).Text)) + 2
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Datum_p = Date - Weekday(Date) + 2
End If
Datum_zav = Datum_p + 7
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "TJEDNI IZVJESTAJ"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
ElseIf Dizv.OptionButtons(3).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Mjesec = Month(CDate(Dizv.EditBoxes(1).Text))
Godina = Year(CDate(Dizv.EditBoxes(1).Text))
Else
MsgBox prompt:="Mjesc nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Mjesec = Month(Date)
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "MJESEC"
Prod.Cells(2, 10).Formula = "=AND(MONTH(DATUM)= " & Mjesec &
",YEAR(DATUM)="
& Godina & ")"
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "MJESECNI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Mjesec:" & Mjesec & "/" & Godina
ElseIf Dizv.OptionButtons(4).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsNumeric(Dizv.EditBoxes(1).Text) Then
Godina = Dizv.EditBoxes(1).Text
Else
MsgBox prompt:="Godina nije ispravno unesena", Buttons:=vbExclamation
Exit Sub
End If
Else
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "GODINA"
Prod.Cells(2, 10).Formula = "=YEAR(DATUM)=" & Godina
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 10).Value = "GODISNJI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Godina: " & Godina
Else
If Dizv.EditBoxes(2).Text < "" And Dizv.EditBoxes(3).Text < "" Then
If IsDate(Dizv.EditBoxes(2).Text) And IsDate(Dizv.EditBoxes(3).Text) Then
Datum_p = CDate(Dizv.EditBoxes(2).Text)
Datum_zav = CDate(Dizv.EditBoxes(3).Text)
Else
MsgBox prompt:="Datumi nisu ispravno uneseni", Buttons:=vbExclamation
Exit Sub
End If
Else
MsgBox prompt:="Nedostaju podaci o razdoblju", Buttons:=vbExclamation
Exit Sub
End If

Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "IZVJESTAJ ZA RAZDOBLJE"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
End If
NoviRed = Prod.Cells(1, 1).CurrentRegion.Rows.Count + 2
Range("Podaci").AdvancedFilter action:=xlFilterCopy,
criteriaRange:=Range("Kriterij"), copyToRange:=Prod.Cells(NoviRed, 1)
On Error GoTo LErr

Set Pt = Prod.PivotTableWizard(SourceType:=xlDatabase,
SourceData:=Prod.Cells(NoviRed, 1).CurrentRegion,
tableDestination:=Izv.Cells(5, 1), HasAutoFormat:=True)
Pt.AddFields RowFields:="KNJIGA"
Pt.PivotFields("UKUPNO").Orientation = xlDataField
Pt.PivotFields("KOMADA").Orientation = xlDataField
Pt.PivotFields("Data").Orientation = xlColumnField
Pt.PivotFields("Data").Name = "REZULTATI PRODAJE"
Pt.PivotFields("Sum of UKUPNO").NumberFormat = "#,##0.00"
Pt.PivotFields("Sum of UKUPNO").Name = "Iznos prodaje (kn)"
Pt.PivotFields("Sum of KOMADA").Name = "Broj prodanih knjiga"
Izv.Cells(1, 2).Font.Name = "HRHelvbold"
Izv.Cells(1, 2).Font.Size = 18
Izv.Cells(1, 2).Font.Bold = True

Izv.Cells(7, 1).CurrentRegion.AutoFormat Format:=xlClassic2
ActiveWorkbook.Names("Podaci").Delete
Prod.Cells(NoviRed, 1).CurrentRegion.Delete
If Dizv.ChekBoxes(1).Value = xlOn Then
brojredova = Izv.Cells(7, 1).CurrentRegion.Rows.Count
Set Izvor = Izv.Cells(7, 1).Resize(brojredova - 3, 2)
Izv.ChartObjects.Add(0, (brojredova + 8) * 12, 350, 220).Select
ActiveChart.ChartWizard Source:=Izvor, Gallery:=xlColumn, Format:=6,
PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=2,
Title:="Knjge", ValueTitle:="Iznos prodaje (kn)", ExtraTitle:=""
End If
Izv.Protect
Exit Sub
LErr:
MsgBox prompt:="Nema podataka za odabrano razdoblje",
Buttons:=vbExclamation
ActiveWorkbook.Names("Podaci").Delete
Prod: Cells(NoviRed, 1).CurrentRegion.Delete
End Sub






Reply With QuoteReply With Quote
  #9   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 31
Default object doesn t support this property or metod
If I use this declaration nothing is hapennig


"Jim Thomlinson" wrote in message
...
Sub Kreiraj()
Dim Dizv As Object
Dim Prod As Object
Dim Izv As Object
Dim Pt As Object
Dim Izvor As Range
Dim Dan As Integer
Dim Mjesec As Integer
Dim Godina As Integer
Dim Datum_p As Date
Dim Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

otherwise most of what you had declared will actually be of type
variant...
--
HTH...

Jim Thomlinson


"Ivica Lopar" wrote:

Cam you help me with declaring variables in this code

regards
lopar


"Jim Thomlinson" wrote in message
...
You have 2 n's
Prod.Columns(1).Name = "DATUM"

You should look at this link though on how to declare variables. Your
declarations are not what you think they are...

http://www.cpearson.com/excel/variables.htm

--
HTH...

Jim Thomlinson


"Ivica Lopar" wrote:

I have run time error "438"
object doesn t support this property or metod
in this line

Prod.Columnns(1).Name = "DATUM"

Can somebody help me this is my code


Sub Kreiraj()
Dim Dizv, Prod, Izv, Pt As Object
Dim Izvor As Range
Dim Dan, Mjesec, Godina As Integer
Dim Datum_p, Datum_zav As Date
Dim NoviRed As Long
Dim brojredova As Long

Set Prod = Worksheets("Prodaja")
Prod.Cells(1, 1).CurrentRegion.Name = "Podaci"
Prod.Columnns(1).Name = "DATUM"
Set Dizv = DialogSheets("DialogIzvjestaj")
Set Izv = Worksheets("Izvjestaj")
If Izv.ProtectContents = True Then
Izv.Unprotect
End If
Izv.Cells.Delete
If Dizv.OptonButtons(1).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Dan = CDate(Dizv.EditBoxes(1).Text)
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Dan = Date
End If
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(2, 10).Value = Dan
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "DNEVNI IZVJESTAJ "
Izv.Cells(2, 2).Value = "Dne:" & Dan
ElseIf Dizv.OptionButtons(2).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Datum_p = CDate(Dizv.EditBoxes(1).Text) -
Weekday(CDate(Dizv.EditBoxes(1).Text)) + 2
Else
MsgBox prompt:="Datum nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Datum_p = Date - Weekday(Date) + 2
End If
Datum_zav = Datum_p + 7
Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "TJEDNI IZVJESTAJ"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
ElseIf Dizv.OptionButtons(3).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsDate(Dizv.EditBoxes(1).Text) Then
Mjesec = Month(CDate(Dizv.EditBoxes(1).Text))
Godina = Year(CDate(Dizv.EditBoxes(1).Text))
Else
MsgBox prompt:="Mjesc nije ispravno unesen", Buttons:=vbExclamation
Exit Sub
End If
Else
Mjesec = Month(Date)
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "MJESEC"
Prod.Cells(2, 10).Formula = "=AND(MONTH(DATUM)= " & Mjesec &
",YEAR(DATUM)="
& Godina & ")"
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "MJESECNI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Mjesec:" & Mjesec & "/" & Godina
ElseIf Dizv.OptionButtons(4).Value = xlOn Then
If Dizv.EditBoxes(1).Text < "" Then
If IsNumeric(Dizv.EditBoxes(1).Text) Then
Godina = Dizv.EditBoxes(1).Text
Else
MsgBox prompt:="Godina nije ispravno unesena", Buttons:=vbExclamation
Exit Sub
End If
Else
Godina = Year(Date)
End If
Prod.Cells(1, 10).Value = "GODINA"
Prod.Cells(2, 10).Formula = "=YEAR(DATUM)=" & Godina
Prod.Range("J1:J2").Name = "Kriterij"
Izv.Cells(1, 10).Value = "GODISNJI IZVJESTAJ"
Izv.Cells(2, 2).Value = "Godina: " & Godina
Else
If Dizv.EditBoxes(2).Text < "" And Dizv.EditBoxes(3).Text < "" Then
If IsDate(Dizv.EditBoxes(2).Text) And IsDate(Dizv.EditBoxes(3).Text)
Then
Datum_p = CDate(Dizv.EditBoxes(2).Text)
Datum_zav = CDate(Dizv.EditBoxes(3).Text)
Else
MsgBox prompt:="Datumi nisu ispravno uneseni", Buttons:=vbExclamation
Exit Sub
End If
Else
MsgBox prompt:="Nedostaju podaci o razdoblju", Buttons:=vbExclamation
Exit Sub
End If

Prod.Cells(1, 10).Value = "DATUM"
Prod.Cells(1, 11).Value = "DATUM"
Prod.Cells(2, 10).Value = "=" & Datum_p
Prod.Cells(2, 11).Value = "<=" & Datum_zav
Prod.Range("J1:K2").Name = "Kriterij"
Izv.Cells(1, 2).Value = "IZVJESTAJ ZA RAZDOBLJE"
Izv.Cells(2, 2).Value = Datum_p & " - " & Datum_zav
End If
NoviRed = Prod.Cells(1, 1).CurrentRegion.Rows.Count + 2
Range("Podaci").AdvancedFilter action:=xlFilterCopy,
criteriaRange:=Range("Kriterij"), copyToRange:=Prod.Cells(NoviRed, 1)
On Error GoTo LErr

Set Pt = Prod.PivotTableWizard(SourceType:=xlDatabase,
SourceData:=Prod.Cells(NoviRed, 1).CurrentRegion,
tableDestination:=Izv.Cells(5, 1), HasAutoFormat:=True)
Pt.AddFields RowFields:="KNJIGA"
Pt.PivotFields("UKUPNO").Orientation = xlDataField
Pt.PivotFields("KOMADA").Orientation = xlDataField
Pt.PivotFields("Data").Orientation = xlColumnField
Pt.PivotFields("Data").Name = "REZULTATI PRODAJE"
Pt.PivotFields("Sum of UKUPNO").NumberFormat = "#,##0.00"
Pt.PivotFields("Sum of UKUPNO").Name = "Iznos prodaje (kn)"
Pt.PivotFields("Sum of KOMADA").Name = "Broj prodanih knjiga"
Izv.Cells(1, 2).Font.Name = "HRHelvbold"
Izv.Cells(1, 2).Font.Size = 18
Izv.Cells(1, 2).Font.Bold = True

Izv.Cells(7, 1).CurrentRegion.AutoFormat Format:=xlClassic2
ActiveWorkbook.Names("Podaci").Delete
Prod.Cells(NoviRed, 1).CurrentRegion.Delete
If Dizv.ChekBoxes(1).Value = xlOn Then
brojredova = Izv.Cells(7, 1).CurrentRegion.Rows.Count
Set Izvor = Izv.Cells(7, 1).Resize(brojredova - 3, 2)
Izv.ChartObjects.Add(0, (brojredova + 8) * 12, 350, 220).Select
ActiveChart.ChartWizard Source:=Izvor, Gallery:=xlColumn, Format:=6,
PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=2,
Title:="Knjge", ValueTitle:="Iznos prodaje (kn)", ExtraTitle:=""
End If
Izv.Protect
Exit Sub
LErr:
MsgBox prompt:="Nema podataka za odabrano razdoblje",
Buttons:=vbExclamation
ActiveWorkbook.Names("Podaci").Delete
Prod: Cells(NoviRed, 1).CurrentRegion.Delete
End Sub








Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
438 - Object doesn't support this property or method Revtim Excel Programming 0 September 12th 05 09:09 PM
Object doesn't support this property or method (Error 438) Kiran Excel Discussion (Misc queries) 1 July 12th 05 08:42 PM
Object doesn't support this property or method davegb Excel Programming 11 May 12th 05 03:36 PM
Object doesn't support this property or method Rick Campbell Excel Programming 2 July 13th 03 11:53 PM


All times are GMT +1. The time now is 06:10 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement