• DİKKAT

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

Ay sütununa göre sayfaya aktaramıyorum

A

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,588
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Pro x64 TR
Değerli dostlar iyi akşamlar.


Sayın Necdet Yeşertener üstadın bir forum üyesine verdiği yanıttaki kodu kendime uyarlamaya çalıştım. Bunu başaramadım...

Ekli dosyanın "Ay" sütununda "oca.01" ayı süzdükten sonra "Aktar" düğmesine basıyorum. oca.01 sayfasını yaratmıyor ve süzülen kayıtları aktarmıyor.

Yardımınızı rica ediyorum.
 

Ekli dosyalar

Bende sorunsuz süzüp aktardı ?
 
Ben de neden süzmüyor bilmiyorum.

Aldığım hata resmi ilişiktedir.
 

Ekli dosyalar

Nerede hata yapıyorum acaba?

Lütfen yardım...
 
assenucler' Alıntı:
Nerede hata yapıyorum acaba?

Lütfen yardım...
Genişletmek için tıkla ...

Hata yapmıyorsunuz. Süzülen değer tarih olduğu için sorun yaşıyorsunuz. Verilerinize baktım pek tarihle ilgili bir değer yok sanki sadece ay adı görünsün diye değer vermişsiniz.

Tarihlerle ilgili süzülen değeri bulana kadar, ki arkadaşlarda bakacaktır mutlaka, tarih olarak değil ay adı olarak kullanın A sütununu sorun çözülünceye kadar.

Epey araştırdım şimdilik bir sonuca ulaşamadım.
 
assenucler' Alıntı:
Değerli dostlar iyi akşamlar.


Sayın Necdet Yeşertener üstadın bir forum üyesine verdiği yanıttaki kodu kendime uyarlamaya çalıştım. Bunu başaramadım...

Ekli dosyanın "Ay" sütununda "oca.01" ayı süzdükten sonra "Aktar" düğmesine basıyorum. oca.01 sayfasını yaratmıyor ve süzülen kayıtları aktarmıyor.

Yardımınızı rica ediyorum.
Genişletmek için tıkla ...

.

Oca.1 'i süzdük diyelim. Bundan kaç sayfa açacak. Kaldı ki, aynı isimde sayfa açılmaz ki; Sorunuz pek açık değil.

Eğer amacınız apartmanıdaki aidat borç, aidat, masraf gibi husuları kontrol edebilmek ise, bu iş için en biçilmiş kaftan Özet Tablo - Pivot Tabedır.


Örnek ekte.



.
.
 

Ekli dosyalar

Sayın yurttaş,

Değerli üstadım, oturduğum apartmanın deneticisiyim. Geçen yıl profesyonel bir yazılım satın aldık. Yönetimdeki arkadaş muhasebeci değil, programın kullanımında ilk yılın acemiliği de var. Her veriyi excele aktarmak mümkün olmuyor. PDF olarak kaydediyorum. Sonra PDF'den excele aktarıyorum. Sayısal veriler "Genel" oluyor, bunu sayısala çeviriyorum. Bana sürekli farklı dosyalar yolluyorlar. Ben de kontrol için sürekli uğraşıyorum. Pazar günü kat malikleri toplantısı var. İşimi kolaylaştırmanın yollarını arıyorum. İşin aslı bu...

Evet, sizin önerdiğiniz yöntem en doğrusu... Gösterdiğiniz yakın ilgi için teşekkür ederim.
En derin sevgi ve saygılarımı sunarım.
 
Merhaba
Elinizde Pdf formatından excele attığınız dosya var ise gönderir misiniz_?
Onun üzerinden çözüm üretmeye çalışalım.
 
Sayın asi kral 1967,

Üstadım, bugün çarşamba pazar günü toplantı var. Şu an yönetici ile bir araya gelip kayıtları düzeltmemiz ve raporumu yazıp, postaya vermem gerekli... Çok sıkışık bir ortamdayım.

Size pdf dosyasını pazartesi günü yollasam olur mu?

İlginiz için teşekkürler.
 
assenucler' Alıntı:
Sayın asi kral 1967,

Üstadım, bugün çarşamba pazar günü toplantı var. Şu an yönetici ile bir araya gelip kayıtları düzeltmemiz ve raporumu yazıp, postaya vermem gerekli... Çok sıkışık bir ortamdayım.

Size pdf dosyasını pazartesi günü yollasam olur mu?

İlginiz için teşekkürler.
Genişletmek için tıkla ...

Pdf dosyasını değil de pdf'den excele aldığınızı söylemiştiniz bana o dosyayı gönderin bakayım uygun bir çözüm bulursam eklerim.
 
Merhaba
Bu kodu deneme şansınız var mı_?
Kod: 
Option Explicit
Sub süz_aktar()
Dim S1 As Worksheet, S2 As Worksheet
Dim STR As Long, SYF As String
Set S1 = Sheets("Veriler")
STR = S1.Range("A" & Rows.Count).End(xlUp).Row
If STR < S1.Range("A" & Rows.Count).End(xlDown).Row Then
SYF = Format(S1.Range("A1").End(xlDown).Value, "mmmm")
If Not SayfaVarMi(SYF) Then
Sheets.Add , Worksheets(Worksheets.Count)
ActiveSheet.Name = SYF
S1.Select
End If
Set S2 = Sheets(SYF)
S1.Range("A1:G" & STR).Copy S2.Range("A1")
S2.Columns("B:B").ColumnWidth = S1.Columns("B:B").ColumnWidth
S2.Columns("C:C").ColumnWidth = S1.Columns("C:C").ColumnWidth
S2.Columns("D:D").ColumnWidth = S1.Columns("D:D").ColumnWidth
S2.Columns("E:E").ColumnWidth = S1.Columns("E:E").ColumnWidth
S2.Columns("F:F").ColumnWidth = S1.Columns("F:F").ColumnWidth
S2.Columns("G:G").ColumnWidth = S1.Columns("G:G").ColumnWidth
End If
End Sub
Function SayfaVarMi(SayfaAdi As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function
 
Son düzenleme:
Üstadım, ilginiz için teşekkürler.


Kodu denedim. Resimdeki gibi bir hata iletisi alıyorum.
 

Ekli dosyalar

  • asiKral1967_Sor_16-01-2013 14-23-28.jpg
    asiKral1967_Sor_16-01-2013 14-23-28.jpg
    69.4 KB · Görüntüleme: 7
Teşekkür ve bir küçük rica

Değerli üstadım,


Benim bu çok sıkışık olduğum anlarda, gerek sizin ve gerekse sayın yurttas'ın verdiği büyük destek için binlerce kez teşekkürler. Yeni kodu denedim güzel çalışıyor..

Eğer çok oldun demezseniz bir ricam olacak.

Yaratılan her sayfanın altında, "Genel Toplam" satırı da eklenebilir mi?

Sevgi ve saygılar.
 
Eklenebilir ama nereler toplanacak onu da söylerseniz yardımcı olayım o konu içinde
 
Aktarılan aylara ilişkin sayfanın en son satırına o ayın borç, alacak ve kalan toplamının eklenmesini rica ediyorum.
 
Bu kodu dener misiniz_?
Kod: 
Option Explicit
Sub süz_aktar()
Dim S1 As Worksheet, S2 As Worksheet
Dim STR As Long, SYF As String
Set S1 = Sheets("Veriler")
STR = S1.Range("A" & Rows.Count).End(xlUp).Row
If STR < S1.Range("A" & Rows.Count).End(xlDown).Row Then
SYF = Format(S1.Range("A1").End(xlDown).Value, "mmmm")
If Not SayfaVarMi(SYF) Then
Sheets.Add , Worksheets(Worksheets.Count)
ActiveSheet.Name = SYF
S1.Select
End If
Set S2 = Sheets(SYF)
S1.Range("A1:G" & STR).Copy S2.Range("A1")
S2.Columns("B:B").ColumnWidth = S1.Columns("B:B").ColumnWidth
S2.Columns("C:C").ColumnWidth = S1.Columns("C:C").ColumnWidth
S2.Columns("D:D").ColumnWidth = S1.Columns("D:D").ColumnWidth
S2.Columns("E:E").ColumnWidth = S1.Columns("E:E").ColumnWidth
S2.Columns("F:F").ColumnWidth = S1.Columns("F:F").ColumnWidth
S2.Columns("G:G").ColumnWidth = S1.Columns("G:G").ColumnWidth
STR = S2.Range("A" & Rows.Count).End(xlUp).Row + 1
With WorksheetFunction
S2.Cells(STR, "D") = "Genel Toplam"
S2.Cells(STR, "E") = .Sum(S2.Range("E2:E" & STR - 1))
S2.Cells(STR, "F") = .Sum(S2.Range("F2:F" & STR - 1))
S2.Cells(STR, "G") = .Sum(S2.Range("G2:G" & STR - 1))
End With: End If
End Sub
Function SayfaVarMi(SayfaAdi As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function
 
Üstadım, süper oldu.

Tekrar teşekkürler. Allah sizden razı ve her şey gönlünüzce olsun...


Sevgi ve saygılar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst