Özet tablo_hat mesajı

[rcepivedik]

Ekteki “calisma.xls” dosyası, Office 2003’te sorunsuz çalışıyor, fakat Office 2007’de pivot table hazırlanırken ”.PivotItems("(boş)").Visible = False” satırında hata veriyor. Yardımlarınız için teşekkürler..

 

[Merhum İdris SERDAR]

Ekteki “calisma.xls” dosyası, Office 2003’te sorunsuz çalışıyor, fakat Office 2007’de pivot table hazırlanırken ”.PivotItems("(boş)").Visible = False” satırında hata veriyor. Yardımlarınız için teşekkürler..

.

Bunun 2003 veya 2007 ile ilgisi yok.

Hata İngilizce ve Türkçe Sürümden kaynaklanmaktadır.

Boş' u Blank yapın. Bu kez makro Özet Tablo 1'de takılacak. Onu da Pivot Table 1 olarak değiştirirseniz, çalışacak.

Çözüm: iki düğme yapın ve bu iki düğmenin birisine İngilizce sürümde çalışacak makroyu, diğerine Türkçe sürümde çalışacak makroyu bağlayın.

.

 

[rcepivedik]

ekteki dosyayı çalıştırdım her iki bilgisayarda da Xp-tr kurulu ve ofis program dili tr, sadece biri office_2003, diğeri office_2007 yüklü, acaba başka bir yerde mi hata yapmışım, teşekkürler..

 

[Merhum İdris SERDAR]

ekteki dosyayı çalıştırdım her iki bilgisayarda da Xp-tr kurulu ve ofis program dili tr, sadece biri office_2003, diğeri office_2007 yüklü, acaba başka bir yerde mi hata yapmışım, teşekkürler..

.

Siz, kodlarda hata veren yeleri benim dediğim şekilde değiştirerek çalıştırdınız mı?

Ben Excel 2010 / İngilizce kullanıyorum. Dosyanızı bu haliyle çalıştırınca dediğinz hataları aldım. Ancak kodlardaki gerekli değişikliği yapınca çalıştı.

.

.

 

[rcepivedik]

sizin söylediğinizden yola çıkarak kodları değiştirdim ve sorun düzeldi, her iki versiyon ile hata vermeden çalışıyor.

.PivotItems("(blank)").Visible = False
.PivotItems("(boş)").Visible = False

bu kodların ikisinide kulladım ve öncesinde de aşağıdaki kodu kullandım,

On Error Resume Next

teşekkürler...

 

[Merhum İdris SERDAR]

sizin söylediğinizden yola çıkarak kodları değiştirdim ve sorun düzeldi, her iki versiyon ile hata vermeden çalışıyor.

.PivotItems("(blank)").Visible = False
.PivotItems("(boş)").Visible = False

bu kodların ikisinide kulladım ve öncesinde de aşağıdaki kodu kullandım,

On Error Resume Next

teşekkürler...

.

Evet bu daha pratik olmuş.

.

 

[rcepivedik]

Bir konu daha var, yardımınıza ihtiyacım olan. Ekteki dosyada "Stok Miktarı" sütununu bulup diğer sayfaya kopyalıyor, ama "Ürün Açıklaması" sütununu bulamıyor. Bulamamasının sebebi de "Ürün Açıklaması" yazarken ikinci kelime alt+enter kombinasyonu ile aynı hücrede ikinci satır oluşturulması. Veriyi başka bir programdan excele aktardığım için hücre bu şekilde yazılmış oluyor. Hücre metnini değiştirmeden makro ile "Ürün Açıklaması" değerini nasıl buldururum. (Diğer programdan excele aktarırken sütunların yerleri değişebiliyor, onun için hücre adresi yerine hücre değerine göre aratıyorum). Şimdiden teşekkür ederim.

 

[rcepivedik]

bu konuda bana yardımcı olabilirmisiniz lütfen..!
Acaba yeni konu mu açmam gerekirdi, tşk.

 

[Merhum İdris SERDAR]

bu konuda bana yardımcı olabilirmisiniz lütfen..!
Acaba yeni konu mu açmam gerekirdi, tşk.

.

Farklı bir başlık açmalıydınız.

Neyse...

İlgili bölümü:

If Cells(3, i) = "Ürün" & Chr(10) & " Açıklaması" Then
    Cells(3, i).Select

şeklinde deneyin.

.

 

[rcepivedik]

çok teşekkür ederim, önceki ve şimdiki yardımınız için..