Yazılan veriye göre alt sayfa açıp değerleri iliştirme

[FERcort]

:hey: merhaba kendime muhasebe programı yazmaya çalışıyorum. Allah razı olsun geçen sorduğum soruyu moderatör arkadaşım cevap vermişti. O arkadaşıma çok teşekkür ediyorum.

Aşağıda ilişkilendirdiğim dosyadaki sorunuma gelecek olursak..

Cari > :hiho: > Firma Ünvanı (Yazınca otomatik sekme açıyor) Yanlız yanındaki verileri açılan sekmeye atmıyor. Bu birinci sorun.

İkinci sorunda açılan sekmede formüller neden geçmiyor.

Son sorumda excel fazla yüklenince yani fazla boyutu arttınca hata verip kapatma yapabiliyor mu??

:dua: Yardımcı olabilecek arkadaşlarıma çok teşekkür ettim. :dua:

 

[Red-Kid]

Aşağıda ilişkilendirdiğim dosyadaki sorunuma gelecek olursak..

Malesef gözükmüyor

Son sorumda excel fazla yüklenince yani fazla boyutu arttınca hata verip kapatma yapabiliyor mu??

Yapıyor
Flitreler varsa kaldırman tavsiye edilir

 

[FERcort]

ilgilendiğin için teşekkür ederim

ilgilendiğin için teşekkür ederim

üzgünüm dosya burda..

http://fermax.somee.com/bitti_macrolu.rar

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin. Makroda küçük bir düzenleme yaptım. Bu sefer formülleri silmiyor. Firma adını yazdığınızda B ve G sütunları arasındaki tüm veriler oluşturulan sayfaya aktarılmaktadır.

Daha önceki kodu tamamen silin ve yerine aşağıdaki kodu kopyalayın.

[vb:1:2153ee0ab6]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo 10
Application.ScreenUpdating = False
If Selection.Cells.Count > 1 Then Exit Sub
If ActiveSheet.Name <> "CARİ" Then Exit Sub
If Intersect(Target, [d:d]) Is Nothing Or Target = "" Then Exit Sub
sat = Target.Row
Sheets(Target.Value).Select
say = WorksheetFunction.CountA([b3:b65536]) + 3
For a = 2 To 6
Cells(say, a) = Sheets("cari").Cells(sat, a).Value
Next
Sheets("cari").Select
Exit Sub
10 Sheets("CARİ").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Target
[b3:g65536].ClearContents
say = WorksheetFunction.CountA([b3:b65536]) + 3
For a = 2 To 6
Cells(say, a) = Sheets("cari").Cells(sat, a).Value
Next
Sheets("cari").Select
End Sub
[/vb:1:2153ee0ab6]

 

[FERcort]

leventm arkadaşıma çok teşekkür :dua: ederim lakin,

son bir hata daha halen devam ediyor. Acaba onuda çözebilirmiyiz. :yardim:

Cari :hiho: >Firma Ünvanı yazınca otomatik sekme açılıyor. Lakin daha sonra Adet, Fiyat ve Açıklama yazınca yazılanlar açılan sekmeye geçmiyor. :kafa:

Tek sorunum o kaldı. Yardımcı olmanız dileğiyle cevabınızı bekliyorum. Arkadaşlar... :arkadas:

 

[Levent Menteşoğlu]

B,C,E,F,G sütunlarında mutlaka veri bulunacakmıdır?

 

[FERcort]

...

:lol: Programı kişi sırası ile yazdığında.

B Sütununda -- Tarih

C Sütununda -- Ürün Kodu

D Sütununda -- Firma Adı (Buraya yazı yazılınca otomatik sekme açılıyor) :agla:

E Sütunu -- :shock:

F Sütunu -- :shock:

G Sütunu -- :shock:

D sütununda sekme açıldığında E,F,G deki veriler açılan sekmeye gitmiyor.

Yani sırayla gidildiği zaman veriler birbirini takip etmiyor.