sayfadan veri çekerken hata veriyor

[kemal turan]

Merhaba Arkadaşlar,
Cari sayfasından (isim kısmı özet tabloya bağlı) müşteriye ait cari verileri çekmek istediğimde bazı isimlerde hata veriyor.resimlerde görebilirsiniz.Debung'u seçtiğimde aşağı kodda kalın olarak belirttiğim yeri gösteriyor.excel 2010 kullanıyorum ondan mı acaba ?Dosya boyutu yüksek ve şirket bilgileri olduğu için ekleyemedim.
Teşekkür ederim.


Sub SearchText()
Range("A2:J23").Select
Selection.ClearContents
Range("K4").Select
Dim k As Range, ilk_adres As String, sat As Long, sut As Byte
Sheets("Arama Sayfası").Select
If MsgBox("[ " & Range("M1").Value & " ] İsimli sahısı aramak istiyormusunuz?", vbYesNo + vbQuestion, "ARAMA") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Range("A11:W65536").ClearContents (Hata yeri olarak burayı gösteriyor)
sat = 2
Set k = Sheets("CARİ").Range("B2:B65536").Find(Range("M1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
ilk_adres = k.Address
Do
Cells(sat, "A").Value = sat - 0
For sut = 0 To 8
Cells(sat, k.Offset(0, sut).Column).Value = k.Offset(0, sut).Value
Next sut
sat = sat + 1
Set k = Sheets("CARİ").Range("B2:F65536").FindNext(k)
Loop While k.Address <> ilk_adres And Not k Is Nothing
End If
Set k = Nothing
Application.ScreenUpdating = True
If sat > 11 Then
MsgBox "Arama Tamamlandı..", vbOKOnly + vbInformation, Application.ScreenUpdating = True
End If

 

[kemal turan]

Dosya boyutunu ve gereksiz verileri temizleyip dosyayı ekledim.Dosya olmadan anlaşılmayacak düşündüm.
Teşekkürler

 

[Ömer]

Merhaba,

Range("A11:W65536").ClearContents

Bu alanı silmek istediğinizden eminmisiniz.

Bu alanın bir bölümünde özet tablo yapmışsınız. Hatayı da bu yüzden alıyorsunuz.

Silinecek alanı gözden geçirmenizi tavsiye ederim.

 

[kemal turan]

ömer bey cevabınız için teşekkür ederim.
Ben bu kodu forumumuzdan aldım.Dediğiniz kod alıntıdan kalandır.Ben yazmadım.
Öncesinde orada bir özet tablo çalışması yapmış olabilirim.Başka bir sayfa açayım mı ?

 

[İhsan Tank]

ömer bey cevabınız için teşekkür ederim.
Ben bu kodu forumumuzdan aldım.Dediğiniz kod alıntıdan kalandır.Ben yazmadım.
Öncesinde orada bir özet tablo çalışması yapmış olabilirim.Başka bir sayfa açayım mı ?

hata veren satırı

Range("A2:M65536").ClearContents

bununla değiştirin

 

[kemal turan]

Başka bir sayfada denedim.Yine aynı hatayı verdi.
Ömer bey yapmak istediği olaya göre kod alıntı olduğu ve bende pek anlamadığım için gereksiz bölümler olabilir mi ?
Gereksiz bölümleri temizleyip kodu yazarsanız sevinirim.
Teşekkürler

 

[kemal turan]

İhsan bey,
Teşekkür ederim .Problem çözüldü.Selametle Kalın.

 

[İhsan Tank]

İhsan bey,
Teşekkür ederim .Problem çözüldü.Selametle Kalın.

rica ederim
Ömer Hocam'ın dediği gibi aralığı kontrol etseydiniz problem olmazdı ama kod'u bilmediğiniz için yapamadınız sanırım.

range("A2:M65536")

bu kod'da mesela " işaretten sonraki harf veya harfler ilk sütunu : bu işaretten sonraki harf veya harfler ikinci sütunu ifade eder mesela A sütunu ile M sütunu demek bu kod
:yazici:

 

[kemal turan]

Açıklamanız için ayrıca teşekkür ederim.
Selametle

 

[İhsan Tank]

Açıklamanız için ayrıca teşekkür ederim.
Selametle

rica ederim
:yazici:

 

[kemal turan]

İhsan bey, ömer bey merhaba
Çözüm için dosyaya baktınız sanırım.
Cari isim veri kaynağı pivot table idi.Buna göre ;
Makroyu pivot tablo her değiştirdiğimizde otomatik çalıştırabilirmiyiz.
Bunun kodunu verebilriseniz sevinirim.
Selametle..

 

[Levent Menteşoğlu]

"Arama Sayfası" isimli sayfanın kod sayfasına aşağıdaki kodu kopyalayarak deneyin.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
SearchText
End Sub

 

[kemal turan]

Biz hayal edelim.
Siz Yazın.
Excel yapsın...
Süpersiniz ..
Çok Teşekkürler

 

[kemal turan]

Levent Bey Merhaba,
Aşağıda yazdığınız kod ;
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
SearchText
End Sub
Çalışma sayfası açıldığında istem dışı otomatik olarak devreye giriyor.Bu da kodumuzun başında bulunan aşağıdaki bu komut diğer sayfalardaki A2:j23 aralığını siliyor.
Range("A2:J23").Select
Selection.ClearContents
Range("K4").Select
Makromuzu sadece "Arama sayfası"ndaki pivot table'in süzme yaptığında çalıştrabilirmiyiz.
Teşekkürler



L

 

[İhsan Tank]

Levent Bey Merhaba,
Aşağıda yazdığınız kod ;
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
SearchText
End Sub
Çalışma sayfası açıldığında istem dışı otomatik olarak devreye giriyor.Bu da kodumuzun başında bulunan aşağıdaki bu komut diğer sayfalardaki A2:j23 aralığını siliyor.
Range("A2:J23").Select
Selection.ClearContents
Range("K4").Select
Makromuzu sadece "Arama sayfası"ndaki pivot table'in süzme yaptığında çalıştrabilirmiyiz.
Teşekkürler



L

merhaba

sheets("[COLOR="Red"]Arama sayfası[/COLOR]").Range("A2:J23").Select
Selection.ClearContents
sheets("[COLOR="Red"]Arama sayfası[/COLOR]").Range("K4").Select

olarak değiştirin kod'u.
Kırmızı yerleri kendinize göre değiştirin.

 

[kemal turan]

İhsan Bey merhaba,

Yazdığınız kodu makronun içerisine değil aşağıda görüleceği üzere levent beyin yazdığı sayfa kodunun önüne yapıştırdım.
Sub sil()
sheets("Arama sayfası").Range("A2:J23").Select
Selection.ClearContents
sheets("Arama sayfası").Range("K4").Select
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
SearchText
End Sub şeklinde
Bu şekilde çalışma kitabı açıldığında diğer sayfalardaki A2:J23 aralığındaki verileri silmiyor.Fakat çalışma kitabını açtığımda "arama sayfası"ndaki kod otomatik olarak istem dışı çalışıyor.
Şunu öğrenebilirmiyim.Bir çalışma kitabı açıldığında o kitabın sayfalarında bulunan kodlar sayfaya tıklanmasa dahi otomatik olarak devreye mi girer?
Ben istiyorumki "SATIŞ KAYIT VE PLANLAMA"İsimli çalışma kitabımı açayım.İhtiyacım olduğunda "arama sayfası" sayfasını açayım, pivot table da yeni bir isim seçtiğimde makro çalışsın.

 

[İhsan Tank]

sorunuzu anlamadım. biraz daha detay verebilir misiniz_?

 

[kemal turan]

İhsan bey tekrar merhaba,
sizleri yordum kusura bakmayın
Şimdi ,satış kayıt ve planlama diye bir çalışma kitabım var.
Bu kitabımın içerisinde Planlama,cari,satışlar ve arama sayfası var.
Diğer bir çalışma kitabımda bu sayfaya köprülenmiş menüler var.
Ben menülerin olduğu sahifeden Satış Kayıt ve planlama kitabının Planlama yazan hücresini tıkladığımda köprü yardımı ile çalışma kitabı açılıyor.
Bu anda arama sayfası kodu ve akabinde "searchtext" makrosu devreye giriyor.
Ben çalışma kitabı açıldığında değil de "arama sayfası"na girip pivot table de değişiklik yaptığımda "searchtext" makrosu çalışsın istiyorum.
Teşekkürler

 

[kemal turan]

İhsan bey
Şöyle sorarsam daha mı kolay anlaşılırım diye düşündüm.
Aşağıdaki kod dosyada bulunan cari bilgi verilerini getiren "searchtext"makrosunun içerisinde çalışır mı ?
Yoksa eyleme bağlı makrolar sadece sayfa kodunda mı çalışır ?

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
SearchText
End Sub şeklinde

 

[İhsan Tank]

İhsan bey
Şöyle sorarsam daha mı kolay anlaşılırım diye düşündüm.
Aşağıdaki kod dosyada bulunan cari bilgi verilerini getiren "searchtext"makrosunun içerisinde çalışır mı ?
Yoksa eyleme bağlı makrolar sadece sayfa kodunda mı çalışır ?

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
SearchText
End Sub şeklinde

siz nasıl kullanmak istiyorsanız değişiklik yaptığınızda çalışmasını istiyorsanız sayfadaki olaylara göre çalıştırmalısınız.
ama sizin tam olarak ne istediğiniz anlamakta zorluk çekiyorum.