Soru GÜN SONU DEVRİ

mc_exrem · 12 Temmuz 2019

Merhabalar,
Yüklediğim dosyada KASA DEFTERİ sayfasında gün sonunda çıktı almam gerekiyor ama DEVRİ nasıl yapacağım nereye yapacağım konusunda kararsızım?
-Çıktı alırken tarihi manuel seçmeden sadece o günün çıktısını alabilir miyim?
-Tarihi otomatik attığı için sadece o günün toplamını manuel seçmeden yapabilir miyim?
-Gün sonu toplamını çıktı alırken sayfanın altına nasıl ekleyebilirim?
yardımlarınız için teşekkürler. İyi çalışmalar

YUSUF44 · 12 Temmuz 2019

Aşağıdaki makroyu deneyiniz. Makro önce dolu hücreleri yani mevcut gün verilerini yazdırır, sonra da sayfayı boşaltıp devir tutarını ilgili yere yazar:

PHP:

Sub gundevir()
Application.EnableEvents = False
bugun = Date
eski = Cells(Rows.Count, "A").End(3).Row
giren = WorksheetFunction.Sum(Range("C1:C" & eski))
cikan = WorksheetFunction.Sum(Range("D1:D" & eski))
devir = giren - cikan

Range("A1:E" & eski).PrintOut Copies:=1, Collate:=True
Range("A3:E" & eski).ClearContents
[C2] = devir
[E2] = bugun
Application.EnableEvents = True

End Sub

mc_exrem · 12 Temmuz 2019

YUSUF44' Alıntı:
Aşağıdaki makroyu deneyiniz. Makro önce dolu hücreleri yani mevcut gün verilerini yazdırır, sonra da sayfayı boşaltıp devir tutarını ilgili yere yazar:

PHP:

Sub gundevir() Application.EnableEvents = False bugun = Date eski = Cells(Rows.Count, "A").End(3).Row giren = WorksheetFunction.Sum(Range("C1:C" & eski)) cikan = WorksheetFunction.Sum(Range("D1:D" & eski)) devir = giren - cikan Range("A1:E" & eski).PrintOut Copies:=1, Collate:=True Range("A3:E" & eski).ClearContents [C2] = devir [E2] = bugun Application.EnableEvents = True End Sub

öncelikle bu sayfada kullanılan kodda A hücresine veri girince tarihi otomatik olarak atıyor onu da belirtmek isterim.

Kodu girince bu hatayı verdi

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy")
End If
End Sub

YUSUF44 · 12 Temmuz 2019

Verdiğim kodu sayfaya değil herhangi bir modüle yapıştırıp deneyin. Sayfada mevcut kodlar bu makronun çalışmasına, bu makro da mevcut kodların çalışmasına engel değil.

mc_exrem · 12 Temmuz 2019

YUSUF44' Alıntı:
Verdiğim kodu sayfaya değil herhangi bir modüle yapıştırıp deneyin. Sayfada mevcut kodlar bu makronun çalışmasına, bu makro da mevcut kodların çalışmasına engel değil.

Modüle yapıştırdım

YUSUF44 · 12 Temmuz 2019

End Sub'ın devamındaki kodlar nedir? Benim kodlarımda öyle bir şey yok. Onları silin ya da ayrı bir makro içine alın.

mc_exrem · 12 Temmuz 2019

YUSUF44' Alıntı:
End Sub'ın devamındaki kodlar nedir? Benim kodlarımda öyle bir şey yok. Onları silin ya da ayrı bir makro içine alın.

Teşekkür ederim. kod adını gundevir yapınca düzeldi ama çıktı alınca sayfayı siliyor ve sayfanın altına toplamları ve devri yazmıyor. İlerleyen zamanlarda yazılan değerleri toplamak için verileri silmemesi gerekiyor. Son olarak da çıktıyı kendim almak istiyorum yani kodu çalıştırmadan yazdır ikonuyla sadece o günü yazdırmam mümkün mü?

YUSUF44 · 12 Temmuz 2019

Ekli dosyayı inceleyiniz. Makroyu ikiye böldüm. Biri sadece o günü yazdırıyor. diğeri ise gün devri yapıyor. Gün devri yaparken sayfayı temizliyor ve günün özetini Arşiv sayfasına kaydediyor.

mc_exrem · 12 Temmuz 2019

YUSUF44' Alıntı:
Ekli dosyayı inceleyiniz. Makroyu ikiye böldüm. Biri sadece o günü yazdırıyor. diğeri ise gün devri yapıyor. Gün devri yaparken sayfayı temizliyor ve günün özetini Arşiv sayfasına kaydediyor.

Teşekkürler ancak ben eksik anlattım galiba kusura bakmayın.
GÜN SONU YAZDIR butonu çıktı vermiyor ama ilk yazdığınız kodta direkt yazdırmıştı.
Arşive totalleri atıyor ama bana arşivin tamamı gerekli. Çünki oradaki personel ve bazı şahısların ay sonu hesapları çıkartılıyor. Bunun için de tüm bilgilerin kalması gerekiyor. Yani arşivi kullanamam
Giriş ve Çıkışların toplamını çıktı aldığım için sayfanın altına yazması gerekiyor. Arşive atmak yerine A sütununa DEVİR yazınca toplamları vermesi,
ya da butona tıklayınca açıklama kısmına TOPLAMLAR yazıp toplamları alt satıra verip çıktı alması mümkün mü?
Yeni işlemi güncellediğim yeni dosyaya yapmanızı rica ederim ve minimum 10000 satıra kadar kullanılabilir olması.
teşekkür ederim

mc_exrem · 15 Temmuz 2019

YUSUF44 · 23 Temmuz 2019

A sütununa veri girdiğinizde E sütununa tarih atması ve A sütununa DEVİR yazdığınızda C sütununa önceki günün devir tutarını yazması için KASA DEFTERİ sayfasının kod bölümündeki kodları aşağıdakiyle değiştirin:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then GoTo 10
    If Selection.Count > 1 Then Exit Sub
    Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy")
    If Target = "DEVİR" Or Target = "devir" Or Target = "Devir" Then
        dun = Target.Offset(-1, 4)
        giren = WorksheetFunction.SumIf(Range("E2:E" & Target.Row - 1), dun, Range("C2:C" & Target.Row - 1))
        cikan = WorksheetFunction.SumIf(Range("E2:E" & Target.Row - 1), dun, Range("D2:D" & Target.Row - 1))
        [g28] = dun
        Target.Offset(0, 2) = giren - cikan
    End If
10:
    If Intersect(Target, Range("G1")) Is Nothing Then Exit Sub
    Son = Cells(Rows.Count, "A").End(3).Row
    tarih = Format(Target.Value, "dd.mm.yyyy")
        ActiveSheet.Range("$A$1:$E$" & Son).AutoFilter Field:=5, Criteria1:= _
        tarih
End Sub

Yazdırma ile ilgili de aynı kod, G1 hücresine bir tarih yazdığınızda o tarihi filtreler, filtreden sonra o sayfayı yazdırabilirsiniz.

mc_exrem · 23 Temmuz 2019

T

YUSUF44' Alıntı:
A sütununa veri girdiğinizde E sütununa tarih atması ve A sütununa DEVİR yazdığınızda C sütununa önceki günün devir tutarını yazması için KASA DEFTERİ sayfasının kod bölümündeki kodları aşağıdakiyle değiştirin:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then GoTo 10 If Selection.Count > 1 Then Exit Sub Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy") If Target = "DEVİR" Or Target = "devir" Or Target = "Devir" Then dun = Target.Offset(-1, 4) giren = WorksheetFunction.SumIf(Range("E2:E" & Target.Row - 1), dun, Range("C2:C" & Target.Row - 1)) cikan = WorksheetFunction.SumIf(Range("E2:E" & Target.Row - 1), dun, Range("D2:D" & Target.Row - 1)) [g28] = dun Target.Offset(0, 2) = giren - cikan End If 10: If Intersect(Target, Range("G1")) Is Nothing Then Exit Sub Son = Cells(Rows.Count, "A").End(3).Row tarih = Format(Target.Value, "dd.mm.yyyy") ActiveSheet.Range("$A$1:$E$" & Son).AutoFilter Field:=5, Criteria1:= _ tarih End Sub

Yazdırma ile ilgili de aynı kod, G1 hücresine bir tarih yazdığınızda o tarihi filtreler, filtreden sonra o sayfayı yazdırabilirsiniz.

Teşekkür ederim. Yarın deneyip bilgi vereceğim.

mc_exrem · 29 Temmuz 2019

YUSUF44' Alıntı:
A sütununa veri girdiğinizde E sütununa tarih atması ve A sütununa DEVİR yazdığınızda C sütununa önceki günün devir tutarını yazması için KASA DEFTERİ sayfasının kod bölümündeki kodları aşağıdakiyle değiştirin:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then GoTo 10 If Selection.Count > 1 Then Exit Sub Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy") If Target = "DEVİR" Or Target = "devir" Or Target = "Devir" Then dun = Target.Offset(-1, 4) giren = WorksheetFunction.SumIf(Range("E2:E" & Target.Row - 1), dun, Range("C2:C" & Target.Row - 1)) cikan = WorksheetFunction.SumIf(Range("E2:E" & Target.Row - 1), dun, Range("D2:D" & Target.Row - 1)) [g28] = dun Target.Offset(0, 2) = giren - cikan End If 10: If Intersect(Target, Range("G1")) Is Nothing Then Exit Sub Son = Cells(Rows.Count, "A").End(3).Row tarih = Format(Target.Value, "dd.mm.yyyy") ActiveSheet.Range("$A$1:$E$" & Son).AutoFilter Field:=5, Criteria1:= _ tarih End Sub

Yazdırma ile ilgili de aynı kod, G1 hücresine bir tarih yazdığınızda o tarihi filtreler, filtreden sonra o sayfayı yazdırabilirsiniz.

Öncelikle ilginiz için teşekkür ederim.

Vermiş olduğunuz kodu kullanamadım o yüzden sayfada yeni düzenlemeler yapıp dosyayı yeniden yükledim. Artık sizden son ricam
KASA DEFTERİ sayfasında F sütunundaki içinde bulunulan günün verilerini YAZDIR butonu ile Samsung SCX-4x21 Series (USB003) yazıcısından yazdırmayı ve HOME butonuna tıklayınca sayfanın başına gelmesini talep ediyorum. Yardımlarınız için teşekkür eder saygılar sunarım.

YUSUF44 · 29 Temmuz 2019

Aşağıdaki makroları deneyiniz. YAzıcı seçimi konusunda makro kaydet ile doğru kodları elde edip uyarlamanız gerekiyor:

PHP:

Sub SuzYaz()
a = Sheets("     KASA DEFTERİ      ").Cells(Rows.Count, "F").End(3).Row
gun = Sheets("     KASA DEFTERİ      ").Cells(a, "F").Value
    Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter Field:=6, Criteria1:=gun
    Sheets("     KASA DEFTERİ      ").PrintOut Copies:=1, ActivePrinter:="USB003: üzerindeki Samsung SCX-4x21", Collate:=True, _
        IgnorePrintAreas:=False
Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter
Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter
End Sub

PHP:

Sub sayfabasi()
    Sheets("     KASA DEFTERİ      ").Activate
    Sheets("     KASA DEFTERİ      ").Range("B4").Select
End Sub

mc_exrem · 29 Temmuz 2019

YUSUF44' Alıntı:

Aşağıdaki makroları deneyiniz. YAzıcı seçimi konusunda makro kaydet ile doğru kodları elde edip uyarlamanız gerekiyor:

PHP:

Sub SuzYaz()
a = Sheets("     KASA DEFTERİ      ").Cells(Rows.Count, "F").End(3).Row
gun = Sheets("     KASA DEFTERİ      ").Cells(a, "F").Value
    Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter Field:=6, Criteria1:=gun
    Sheets("     KASA DEFTERİ      ").PrintOut Copies:=1, ActivePrinter:="USB003: üzerindeki Samsung SCX-4x21", Collate:=True, _
        IgnorePrintAreas:=False
Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter
Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter
End Sub

PHP:

Sub sayfabasi()
    Sheets("     KASA DEFTERİ      ").Activate
    Sheets("     KASA DEFTERİ      ").Range("B4").Select
End Sub

bunu yüklediğim dosyaya eklemeniz mümkün mü acaba? diğer kodların bozulmasından çekiniyorum.

YUSUF44 · 29 Temmuz 2019

Herhangi bir Module içine kopyalayabilirsiniz. Ya da VBA penceresinde Insert menüsünden Module'yi seçip açılan sayfaya yapıştırabilirsiniz. Daha sonra da sayfadaki düğmelerinize sağ tıklayıp Makro ata diyerek SuzYaz ve sayfabasi makrolarını seçebilirsiniz.

mc_exrem · 29 Temmuz 2019

YUSUF44' Alıntı:
Herhangi bir Module içine kopyalayabilirsiniz. Ya da VBA penceresinde Insert menüsünden Module'yi seçip açılan sayfaya yapıştırabilirsiniz. Daha sonra da sayfadaki düğmelerinize sağ tıklayıp Makro ata diyerek SuzYaz ve sayfabasi makrolarını seçebilirsiniz.

Teşekkürler @YUSUF44
HOME butonu çalıştı. Tarihi süzerek bugünü de yazdı ancak yazıcıyı bulmada bi sıkıntı var. Samsung yazıcısını değil de varsayılan yazıcı olan utax yazıcısından yazdırıyor. Etiket yazdırmak için kullandığım kodda şu şekilde yazıyor. "Ne00: üzerindeki Zebra TLP2844 " şeklinde yazıyor. Bunu da "Ne00: üzerindeki Samsung SCX-4x21" şeklinde düzelttim ama yine yazmadı.
Emeğinize sağlık.

mc_exrem · 30 Temmuz 2019

@Haluk abi. Bu çorbada da tuzun olsa ???????? Yazıcı seçme konusunda uzmanlığından bi Kere daha istifade etmek istiyoruz.

Haluk · 30 Temmuz 2019

mc_exrem' Alıntı:
@Haluk abi. Bu çorbada da tuzun olsa ???????? Yazıcı seçme konusunda uzmanlığından bi Kere daha istifade etmek istiyoruz.

Yazıcının adını kontrol ettiniz mi ?

"Ne00: üzerindeki Samsung SCX-4x21 "

Kırmızı ile işaretlediğim yeri kontrol edin ve en sonuna da ........bir boşluk ekleyin >>>>>> ........-4x21 "

.

mc_exrem · 30 Temmuz 2019

Haluk' Alıntı:
Yazıcının adını kontrol ettiniz mi ?

"Ne00: üzerindeki Samsung SCX-4x21 "

Kırmızı ile işaretlediğim yeri kontrol edin ve en sonuna da ........bir boşluk ekleyin >>>>>> ........-4x21 "

.

Teşekkür ederim @Haluk abi.

Soru GÜN SONU DEVRİ

mc_exrem

Ekli dosyalar

YUSUF44

Destek Ekibi

mc_exrem

YUSUF44

Destek Ekibi

mc_exrem

Ekli dosyalar

YUSUF44

Destek Ekibi

mc_exrem

YUSUF44

Destek Ekibi

Ekli dosyalar

mc_exrem

Ekli dosyalar

mc_exrem

YUSUF44

Destek Ekibi

mc_exrem

mc_exrem

Ekli dosyalar

YUSUF44

Destek Ekibi

mc_exrem

YUSUF44

Destek Ekibi

mc_exrem

mc_exrem

Haluk

Özel Üye

mc_exrem