• DİKKAT

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

satırları başka sayfada görüntülemek

F

flamenker

Katılım
1 Mart 2009
Mesajlar
113
Excel Vers. ve Dili
xp
Merhaba

Ben bir sayfada A sütununda belirli bir veriyi içeren satırların hepsinin başka bir sayfada görünmesini istiyorum mümkünmüdür.
 
http://www.sendspace.com/file/5obqow
dosya burda var büyük olduğundan siteye ekleyemedim.
müşteri satışı tıklayınca çıkan sayfadaki belli veriyi içeren satırları ekstre tıklanınca çıkan sayfada görüntülemek istiyorum.

Açıkçası yaptığımız satışları karışık olarak müşteri satışa giriyoruz.Burda biriken verileri daha sonra müşteriye özel olarak ekstre almak istediğimizde esktre sayfasında ayıklanmış olarak görmek istiyoruz.
misal sadece abc firmasıyla ilgili olan satırlar alt alta olcak şekilde.
koruma şifresi "ABC"
 
RAPOR butonuna basınız.
Userform çıkacak.Oradan bir seçim yapıp istediğinizi listeleyebilirsiniz.
Dosyayı rapidshareya aşağıdaki linke ekledim.:cool:
TIKLAYIN
Kod: 
Private Sub CommandButton1_Click()
Dim sat As Long, k As Range, adr As String, sh As Worksheet
Dim sat2 As Long
sat2 = 5
Set sh = Sheets("RAPOR")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
sh.Range("B5:O65536,Q5:Q65536").ClearContents
sat = Cells(65536, "E").End(xlUp).Row
If ComboBox1.Value = "HEPSİ" Then
    Range("B5:O" & sat).Copy
    sh.Range("B5").PasteSpecial xlPasteValuesAndNumberFormats
    Else
    Set k = Range("E5:E" & sat).Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            Range("B" & k.Row & ":O" & k.Row).Copy
            sh.Range("B" & sat2).PasteSpecial xlPasteValuesAndNumberFormats
            sh.Range("Q" & sat2).Value = k.Row
            sat2 = sat2 + 1
            Set k = Range("E5:E" & sat).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
End If
Application.CutCopyMode = False
sh.Range("B5:Q" & sat2 - 1).Sort sh.Range("Q5")
Range("A4:O4").Select
Selection.AutoFilter
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
ActiveSheet.Protect "ABC"
Sheets("RAPOR").Select
Range("A1").Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim sh As Worksheet, i As Long, sat As Long
Sheets("MÜŞTERİ SATIŞ").Select
ActiveSheet.Unprotect "ABC"
Range("A4").AutoFilter
sat = Cells(65536, "E").End(xlUp).Row
ComboBox1.AddItem "HEPSİ"
For i = 5 To sat
    If WorksheetFunction.CountIf(Range("E5:E" & i), Cells(i, "E").Value) = 1 Then
        ComboBox1.AddItem Cells(i, "E").Value
    End If
Next i
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0

End Sub
 
Teşekkür ederim sanırım bu işi çok iyi biliyorsunuz.
Br sorum fakat dosya boyutu 2 katına çıkmış sıkıntı yaratırmı yavaşlama takılma kararsızlık vb.
bir de ben bunu birde alım yaptığımız firmalar için yapıcam o zamanda 2ye mi katlar acaba boyutu.
Elinize sağlık.
 
flamenker' Alıntı:
Teşekkür ederim sanırım bu işi çok iyi biliyorsunuz.
Br sorum fakat dosya boyutu 2 katına çıkmış sıkıntı yaratırmı yavaşlama takılma kararsızlık vb.
bir de ben bunu birde alım yaptığımız firmalar için yapıcam o zamanda 2ye mi katlar acaba boyutu.
Elinize sağlık.
Genişletmek için tıkla ...
RAPOR sayafasını hücre arka palnı biçimlendirm o yüzden yapmıştı.
Şimdi biçimi kaldırdım.
2,69 oldu
8 numaralı önceki mesajımdan indirebilirsiniz.:cool:
 
Tekrar teşekkürler.
Biraz kurcalıyorum da rapor sayfasında para değerlerinin önündeki $işareti verileri işlememe engel olur sanırım.
Kaldırılabilir mi?
 
flamenker' Alıntı:
Tekrar teşekkürler.
Biraz kurcalıyorum da rapor sayfasında para değerlerinin önündeki $işareti verileri işlememe engel olur sanırım.
Kaldırılabilir mi?
Genişletmek için tıkla ...
Hangi sütunlar.Ben $ işareti göremedim.TL var oda sorun çıkarmaz.Değer yine sayısal değer.:cool:
 
H,J,K ve L sütunları.
Normal satış sayfasında veri 1.00tl iken rapor dedikten sonta $1.00 oluyor. Hem de bicimlendir , parabirimi, tl işaretli olduğu halde.
 
flamenker' Alıntı:
H,J,K ve L sütunları.
Normal satış sayfasında veri 1.00tl iken rapor dedikten sonta $1.00 oluyor. Hem de bicimlendir , parabirimi, tl işaretli olduğu halde.
Genişletmek için tıkla ...
Bende gözükmüyor.Dosyayı yollarmısınız?
 
Çok teşekkürler.
başınıza bela oldum ama sanırım tarihleri doğru almıyor rapor sayfasına.
Bir de alttaki tarihi en üste yazıyor .Eski tarihi yukardan başlatabilirmisiniz? Müşteri satış sayfasında olduğu gibi işlendiği sırayla olsa.
 
Tarih içeren hücreleri biçimlendirden sayı olarak biçimlendirince doğru şekilde alıyor.
Şimdi sadece yukarıdan aşağıya eski tarihten yeni tarihe doğru gitmesi kaldı.
 
flamenker' Alıntı:
Tarih içeren hücreleri biçimlendirden sayı olarak biçimlendirince doğru şekilde alıyor.
Şimdi sadece yukarıdan aşağıya eski tarihten yeni tarihe doğru gitmesi kaldı.
Genişletmek için tıkla ...
dosyayı güncelledim.Dosyayı 8 numaralı mesajdan indirebilirsiniz.:cool:
 
evren bey yazınızı ve dosyayı inceledim benim de bir sıkıntım var acaba yardımcı olabilirmisiniz. benim sıkıntım arkadaşın dosyası üzerinden anlatabileceğim bırşey. arkadaşın dosyasına satışlara girdiğinizde sırası karışık şekilde satışları görüyorsunuz o sırası karışık satırlardan tek müşteriyi açılır liste ile seçtiğimizde alt alta diyelim 10 hareket görünüyor. satış ve tahsilat olarak düşüneceğiniz bu sütünlara birde bakiye sütunu ekledim fakat satır bazında bakiyeyi sadece seçimi yapılmış müşteri için basit bir şekilde yapamadım. basit diyorum çünkü alttaki formül ile yapıyorum bu sefer de açılma yada kaydetme 5 dakika sürüyor

=EĞER(A12="";"";ALTTOPLAM(9;$H$10:H15)) => satış satırını o anki satıra kadar topluyor

=EĞER(A12="";"";ALTTOPLAM(9;$I$10:I15)) => tahsilat satırını o anki satıra kadar topluyor

=EĞER(A12<>"";K15-L15;"") => müşteri adı boş değil ise bakiye sütününda o anki satıra kadarki bakiyeyi gösteriyor

bu şekilde değişken bakiye işlemini nasıl yaptırabilirm bilgi verirseniz sevinirim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst