veri aktarma Raporlama

[buseen]

tablolarda girilen bilgilerin ödendi+ ödenmedi isim rapor nasıl alabilirim ayrı bir sayfaya isim listesi alabilirmiyim TŞK.

 

[buseen]

arkadaşlar d6 d25 sutununda ödendi + ödenmedi liste nasıl alabilirim

 

[Karaelmas]

=EĞER(C6>0;"ÖDENDİ";"ÖDENMEDİ")

Bu şekilde bir formülle işinizi görebilirsiniz sanırım..

 

[buseen]

tşk tamam fakat ödendi ödenmedi diye bir isim listesi almak istiyorum ayrı bir sayfada
d6 ila d25 süzecek rapor.

 

[Karaelmas]

Sorununuzu formüllerle çözmeye devam edersek, Ana sayfanın D6 hücresine:

=DÜŞEYARA(A6;'Necat Bölükbaşı'!$A$5:$D$25;4;0)

formülünü yapıştırdığınızda ilgili kişinin sayfasındaki bilgiyi getirecektir.

 

[buseen]

tşk işimi gördü fakat bir rapor sayfası amak istiyorum tüm isim lerin bulundugu

 

[Karaelmas]

Bilgiler Ana sayfada sabit değilse, makro kullanarak çözüm bulmak daha mantıklı. Bu konuda yetkin arkadaşlar yardımcı olacaktır sanırım [ Benim onun içinden çıkmam çok zaman alır ]

Kolay gelsin

 

[buseen]

bir rapor sayfası amak istiyorum tüm isim lerin bulundugu ÖDENDİ ÖDENMEDİ DİYE

 

[Orion1]

Zaten anasayfada ödendi ödenmedi diye rapor almışsınız.

 

[buseen]

slm şimdi tüm 12 ayın icinden ayıklama yapa bilmek icin bir isim şubata veya diger aylarda ödemedi veya ödenen lerin bir listesi ayrı sayfada almak istiyorum

 

[buseen]

isim sayfalarından hangi aylar ödedi ödemedi diye bir rapor listesi başka bir sayfaya
nasıl macro ile cözüm bulabilirim

 

[Orion1]

Dosyanız Ekte.

Sub odendi()
Dim s2 As Worksheet, i As Long, sat As Long, k As Long, j As Integer
Sheets("AnaSayfa").Select
Application.ScreenUpdating = False
Range("A5:D65536").ClearContents
sat = 5
For j = 2 To Worksheets.Count
    Set s2 = Sheets(Sheets(j).Name)
    Cells(sat, "A").Value = Sheets(j).Name
    sat = sat + 1
    For s = 6 To 17
        If UCase(Replace(Replace(s2.Cells(s, "D").Value, "i", "İ"), "ı", "I")) = "ÖDENDİ" Then
            Range(Cells(sat, "A"), Cells(sat, "D")).Value = _
            s2.Range(s2.Cells(s, "A"), s2.Cells(s, "D")).Value
            sat = sat + 1
        End If
    Next s
Next j
Application.ScreenUpdating = True
MsgBox "Ödenenler Akatarıldı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub
Sub odenmedi()
Dim s2 As Worksheet, i As Long, sat As Long, k As Long, j As Integer
Sheets("AnaSayfa").Select
Application.ScreenUpdating = False
Range("A5:D65536").ClearContents
sat = 5
For j = 2 To Worksheets.Count
    Set s2 = Sheets(Sheets(j).Name)
    Cells(sat, "A").Value = Sheets(j).Name
    sat = sat + 1
    For s = 6 To 17
        If UCase(Replace(Replace(s2.Cells(s, "D").Value, "i", "İ"), "ı", "I")) = "ÖDENMEDİ" Then
            Range(Cells(sat, "A"), Cells(sat, "D")).Value = _
            s2.Range(s2.Cells(s, "A"), s2.Cells(s, "D")).Value
            sat = sat + 1
        End If
    Next s
Next j
Application.ScreenUpdating = True
MsgBox "Ödenenler Akatarıldı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[buseen]

Tşk hocam fakat combobox isimler gözükmüyor ayrı bir rapor sayfasınaatabilirmi acaba
valla bayram hediyesi oldu

 

[Orion1]

Tşk hocam fakat combobox isimler gözükmüyor ayrı bir rapor sayfasınaatabilirmi acaba
valla bayram hediyesi oldu

Combobox düzeltildi 12nci mesajdan indirebilirisinz.

 

[buseen]

tşk hocam saol

 

[Orion1]

tşk hocam saol

Rica ederim.
İyi çalışmalar.