• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan FERcort
  • Başlangıç tarihi Başlangıç tarihi
F

FERcort

Katılım
29 Eylül 2005
Mesajlar
11
: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?? :eek:

:dua: Yardımcı olabilecek arkadaşlarıma çok teşekkür ettim. :dua:
 
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]
 
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:
 
B,C,E,F,G sütunlarında mutlaka veri bulunacakmıdır?
 
...

: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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst