• DİKKAT

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

Macro ile Sütunda Formül

  • Konbuyu başlatan Konbuyu başlatan adamar
  • Başlangıç tarihi Başlangıç tarihi
A

adamar

Altın Üye
Katılım
23 Mayıs 2007
Mesajlar
94
Excel Vers. ve Dili
office 365
Merhaba Sayın Üstadlarım,

Ekte örneini verdiğim dosyada H ve I sütünunda Günün Son Sarihi ve bakiyesini yazdırmak için formül kurdum ancak çok geniş bir dosya ve sürekliliğinde dosya ok yavaşlıyor,

Bu sütunlardaki formülü Makro ile H ve I sütununda çalıştırırakak hesaplamayı getirecek şekilde yapmak istiyorum, yardımcılı olabilirmisiniz.

Kolay Gelsin
 

Ekli dosyalar

adamar' Alıntı:
Merhaba Sayın Üstadlarım,

Ekte örneini verdiğim dosyada H ve I sütünunda Günün Son Sarihi ve bakiyesini yazdırmak için formül kurdum ancak çok geniş bir dosya ve sürekliliğinde dosya ok yavaşlıyor,

Bu sütunlardaki formülü Makro ile H ve I sütununda çalıştırırakak hesaplamayı getirecek şekilde yapmak istiyorum, yardımcılı olabilirmisiniz.

Kolay Gelsin
Genişletmek için tıkla ...

Merhaba
Boş bir module kopyalayın ve deneyin.
Kod: 
Option Explicit
Sub gün_sonu_bakiye_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Gün Sonu Bakiyelerini Çıkarıyorum" _
, vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Range("H3:I" & Rows.Count).ClearContents
kaplan = Range("A" & Rows.Count).End(xlUp).Row
For ts = 3 To kaplan
If WorksheetFunction.CountIf(Range("A" & ts & ":A" _
& kaplan), Cells(ts, "A")) = 1 Then
Cells(ts, "H") = Cells(ts, "A")
Cells(ts, "I") = Cells(ts, "D")
Else
Cells(ts, "H") = ""
Cells(ts, "I") = ""
End If
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Bakiyeler Çıkarıldı", , "Bitiş"
End Sub
 
üstadım eline sağlık çok güzel olmuş
 
Alternatif makro :
Sub gun_sonu_bakiye()
shB = "banka"
Bky = 0
Sheets(shB).Select

Cells(Rows.Count, "a").Select
sR = Selection.End(xlUp).Row
rnS = "A2:D" & sR
rnK = "A2:A" & sR
Range(rnS).Select
Selection.Sort key1:=Range(rnK), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Cells(3, 1).Select
For r = 3 To sR
Trh = Cells(r, "a")
While Cells(r, "a") = Trh
Cells(r, "c").Select
Bky = Bky + Cells(r, "c")
r = r + 1
Wend
Cells(r - 1, "h").Select
Cells(r - 1, "h") = Trh
Cells(r - 1, "I") = Bky
r = r - 1
Next r
End Sub
 
Macro ile sutunlara formul

Sevgili Üstadlarım,

ekli dosyada örneklendirdim ancak çözümleyemedim.

E Sütundaki Bankalara göre Gün sonlarındaki bakiyeleri alabilirmiyiz.
 

Ekli dosyalar

sevgili üstadlarım
aslında yapmak istediğim, sayfalardaki banka ekstrelerindeki tümünü bir sayfada özet halinde alabilmek.

bir sayfada yazılı olan banka hesaplarının kriteri verilen tarih sonundaki o sayfadaki gün sonu bakiyesini alabilmek

özet sayfayı macro ile yapabimemde yardımcı olabilirmisniz.
 
adamar' Alıntı:
sevgili üstadlarım
aslında yapmak istediğim, sayfalardaki banka ekstrelerindeki tümünü bir sayfada özet halinde alabilmek.

bir sayfada yazılı olan banka hesaplarının kriteri verilen tarih sonundaki o sayfadaki gün sonu bakiyesini alabilmek

özet sayfayı macro ile yapabimemde yardımcı olabilirmisniz.
Genişletmek için tıkla ...

Merhaba
1. Neden arkadaşlık isteği gönderiyorsunuz bunu anlamadım imzada bulunan açıklamaya tıklamadınız sanırım. Lütfen bir daha böyle bir şey yapmayın.
2. Sorunuza gelince bankadaki hesaplar birbiri ile nasıl eşit oluyor onu anlamadım. Bir bankada belli bir meblağ çıkmış ama bu diğer bankadaki hesaptan düşmüş bu nasıl oluyor.
 
İhsan Tank' Alıntı:
Merhaba

1. Neden arkadaşlık isteği gönderiyorsunuz bunu anlamadım imzada bulunan açıklamaya tıklamadınız sanırım. Lütfen bir daha böyle bir şey yapmayın.
Cevap : Evet haklısınız İmza bölümündeki açıklamayı okumadım; Bu kadar hassas davranarak tepki verileceğini düşünmediğim bir konu, Sorduğunuz sebebi ise bu konularda yardımcı olmak için iyi niyetli olduğunuzu düşünerek kimseye ulaşamdığımda yardımcı isteyebilmek için ekledim.


2. Sorunuza gelince bankadaki hesaplar birbiri ile nasıl eşit oluyor onu anlamadım. Bir bankada belli bir meblağ çıkmış ama bu diğer bankadaki hesaptan düşmüş bu nasıl oluyor.
Genişletmek için tıkla ...
Cevap : Tüm Sayfalardaki banka haraketilerini tek bir sayfaya kopyalarak ordan macroyu çalıştırmayı düşündüm, işin esası tek bir sayfada istenilen tarih verildiğinde sayfalardaki veya ikinci fikir ile tek sayda o bankalara ait o tarih bakiyelerini görebilmek.
yaklaşık 60-65 banka hesabı var.
 
Merhaba,

Tüm sayfa yada aynı sayfa hepsi yapabilir. Sorunuzu daha ham bir şekilde yeni bir dosya ekleyerek detaylı açıklarmısınız. Ekleyeceğiniz ham tablo üzerinden konuyu çözümlemek daha doğru olacaktır. Hem bu şekilde tablo yapınızı da en uygun şekle getirebiliriz.

.
 
İhsan Tank' Alıntı:
Merhaba
1. Neden arkadaşlık isteği gönderiyorsunuz bunu anlamadım imzada bulunan açıklamaya tıklamadınız sanırım. Lütfen bir daha böyle bir şey yapmayın.
Cevap : Evet haklısınız İmza bölümündeki açıklamayı okumadım; Bu kadar hassas davranarak tepki verileceğini düşünmediğim bir konu, Sorduğunuz sebebi ise bu konularda yardımcı olmak için iyi niyetli olduğunuzu düşünerek kimseye ulaşamdığımda yardımcı isteyebilmek için ekledim.



2. Sorunuza gelince bankadaki hesaplar birbiri ile nasıl eşit oluyor onu anlamadım. Bir bankada belli bir meblağ çıkmış ama bu diğer bankadaki hesaptan düşmüş bu nasıl oluyor.
Genişletmek için tıkla ...
Cevap : Tüm Sayfalardaki banka haraketilerini tek bir sayfaya kopyalarak ordan macroyu çalıştırmayı düşündüm, işin esası tek bir sayfada istenilen tarih verildiğinde sayfalardaki veya ikinci fikir ile tek sayda o bankalara ait o tarih bakiyelerini görebilmek.
yaklaşık 60-65 banka hesabı var.
 
Ömer' Alıntı:
Merhaba,

Tüm sayfa yada aynı sayfa hepsi yapabilir. Sorunuzu daha ham bir şekilde yeni bir dosya ekleyerek detaylı açıklarmısınız. Ekleyeceğiniz ham tablo üzerinden konuyu çözümlemek daha doğru olacaktır. Hem bu şekilde tablo yapınızı da en uygun şekle getirebiliriz.

.
Genişletmek için tıkla ...


Herkese ilgisinden dolayı çok teşekkür ederim.
1 yerde toparlamaya çalıştığım dosyalar ekte dosyalara benzer durumda.
 

Ekli dosyalar

Hangi çalışmanın üzerinden gitmek istiyorsunuz?
 
tek sayfa olan dosya yapabilirmiyiz.

Teşekkürler
 
adamar' Alıntı:
Herkese ilgisinden dolayı çok teşekkür ederim.
1 yerde toparlamaya çalıştığım dosyalar ekte dosyalara benzer durumda.
Genişletmek için tıkla ...

Merhaba
Öncelikle şunu söyliyeyim. Şehitler sebebi ile kendime gelemedim henüz dün sizi kırdıysam özür dilerim.
Bu kodu dener misiniz_?
Kod: 
Option Explicit
Sub banka_aktarım_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi
trabzonspor = MsgBox("Bakiyeleri Çıkarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Set bordo = Sheets("banka")
Set mavi = Sheets("OZET")
mavi.Range("B3:B" & Rows.Count).ClearContents
For ts = 3 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
bordo.Cells(ts, "F") = bordo.Cells(ts, "A") & " " & Format(bordo.Cells(ts, "B"), "dd.mm.yyyy")
Next
trabzonspor = bordo.Range("F" & Rows.Count).End(xlUp).Row
For ts = 3 To mavi.Cells(Rows.Count, "A").End(xlUp).Row
For kaplan = 3 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountIf(bordo.Range("F" & kaplan & ":F" & trabzonspor) _
, mavi.Cells(ts, "A") & " " & Format(mavi.Range("B1"), "dd.mm.yyyy")) = 1 Then
mavi.Cells(ts, "B") = bordo.Cells(kaplan, "E")
End If
Next
Next
bordo.Range("F:F").ClearContents
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Bakiyeleri Çıkardım", , "Bitiş"
End Sub
 
Estafurullah, sadece böyle bir tepki beklememiştim benim dikkatsizliğim imza bölümüne bakmadım.
Elinze sağlık.

çok teşekkür.

Özel Bir Soru; Benim bu derecede olmasa da formül kurabilecek kadar nasıl öğrenebilirim.

cevap verir veya yönlendirebilirseniz sevinrim.
 
adamar' Alıntı:
Estafurullah, sadece böyle bir tepki beklememiştim benim dikkatsizliğim imza bölümüne bakmadım.
Elinze sağlık.

çok teşekkür.

Özel Bir Soru; Benim bu derecede olmasa da formül kurabilecek kadar nasıl öğrenebilirim.

cevap verir veya yönlendirebilirseniz sevinrim.
Genişletmek için tıkla ...

Bu soruya memnuniyetle cevap veririm balık tutmayı öğrenmek isteye yardım etmeliyiz.
Excel Dershane Tıklayın
Burası da bazı formüllerin anlatıldığı bölüm.
Rica ederim
:keyif:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst