Soru Makro kodu hakkında yardım

mehoaga

Altın Üye
Katılım
16 Mart 2009
Mesajlar
189
Excel Vers. ve Dili
Excel 2003 ve 2007
Altın Üyelik Bitiş Tarihi
30-06-2025
Arkadaşlar,;
Excel dosyamda giriş sayfasındaki hücerelere yazdığım verileri kasa sayfasına verileri yanyana yapıştırmak istiyorum. makro bilgim az olduğundan bir türlü halledemedim konu hakkında arakadaşlarımdan yardımlarını rica ediyorum.
Not: Veriler kasa sayfasına yapıştırdıktan sonra giriş sayfasındaki hücre içindeki veriler silinebilsin ve yapıştırma işlemi bitince msg box la kayıt yapıldı desin bana. Konuyla alakalı resimleride paylaşıyorum.
 

Ekli dosyalar

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
374
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
dosyanızı paylaşınız. ya da makro kaydet yöntemiylr verilerinizi defrik dönüşüm yaparak kaydedin. İstediğiniz makroyu elde edersiniz.
 

mehoaga

Altın Üye
Katılım
16 Mart 2009
Mesajlar
189
Excel Vers. ve Dili
Excel 2003 ve 2007
Altın Üyelik Bitiş Tarihi
30-06-2025
dosyanızı paylaşınız. ya da makro kaydet yöntemiylr verilerinizi defrik dönüşüm yaparak kaydedin. İstediğiniz makroyu elde edersiniz.
Sayın wolki_112 kardeşim yanıtın için tşkler diycem ama sorumun cevabını beklerken soruyla dönüş yapılması beni üzdü. Ben zaten makro kaydeti becerebilseydim burda arkadaşlardan neden yardım rica edeyim. Ayrıca dosya paylaş diyorsunuz dosya içeriği ayrıntılı olarak resimle istenen kısım belirtilmiştir.
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
374
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
Sayın wolki_112 kardeşim yanıtın için tşkler diycem ama sorumun cevabını beklerken soruyla dönüş yapılması beni üzdü. Ben zaten makro kaydeti becerebilseydim burda arkadaşlardan neden yardım rica edeyim. Ayrıca dosya paylaş diyorsunuz dosya içeriği ayrıntılı olarak resimle istenen kısım belirtilmiştir.
hocam attığın fotoda satır numaraları yok. neye göre kod yazmamızı bekliyorsun
 

walabi

Altın Üye
Katılım
22 Eylül 2012
Mesajlar
950
Excel Vers. ve Dili
excel 2010

excel 2013
Altın Üyelik Bitiş Tarihi
06-08-2025
Size soru sorulmamış. Dosya paylaşmanız ya da paylaşmak istemiyorsanız makro kaydet yöntemini kullanın demek istenmiş. Makro kaydet yöntemini kullanamıyorsanız dosya yükleyin. Dosya aslını paylaşmak istemiyorsanız örnek dosya hazırlayın örnek veriler ile.
 

mehoaga

Altın Üye
Katılım
16 Mart 2009
Mesajlar
189
Excel Vers. ve Dili
Excel 2003 ve 2007
Altın Üyelik Bitiş Tarihi
30-06-2025
Örnek dosyasının içinde istenilen bilgiler "giriş" sayfasına yazılmıştır. Yardımcı olacaklara şimdiden tşk ler.
 

Ekli dosyalar

Son düzenleme:

mehoaga

Altın Üye
Katılım
16 Mart 2009
Mesajlar
189
Excel Vers. ve Dili
Excel 2003 ve 2007
Altın Üyelik Bitiş Tarihi
30-06-2025
Ayrıca 1. ricam Giriş sayfasında c2 sutununu 2 kez veya tek tıklayınca o hücreye günün tarihini yazdırmak.
2. ricamda c5 sütununa 1 yazıp enter ladım c5 sütununa gelir yazsın veya c5 sütununa 2 yazıp enter ladım gider yazsın böyle bir şey yapılabilirmi acaba.
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
374
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
Ayrıca 1. ricam Giriş sayfasında c2 sutununu 2 kez veya tek tıklayınca o hücreye günün tarihini yazdırmak.
2. ricamda c5 sütununa 1 yazıp enter ladım c5 sütununa gelir yazsın veya c5 sütununa 2 yazıp enter ladım gider yazsın böyle bir şey yapılabilirmi acaba.
hocam ev bütçesini takip için program arıyorsun diye düşündüm. Birisinden almıştım. Alttaki programı kullanıyorum. Dolar bazlı da Gelir ve Giderinizi görebiliyorsunuz. İndirince dosyada Açıklamalar sayfasını mutlaka okuyunuz. Senin doyanda kasa sayfası tablo formatında olduğu için giriş sayfasından makro ile veri aktarında toplama formülleri hata veriyor. Doğru çalışmıyor. Üzerinde biraz daha işlem yapmak gerekli. Benin gönderdiğim dosyaya bak işini görmezse kendi dosyanda da ilerleriz.
 

Ekli dosyalar

mehoaga

Altın Üye
Katılım
16 Mart 2009
Mesajlar
189
Excel Vers. ve Dili
Excel 2003 ve 2007
Altın Üyelik Bitiş Tarihi
30-06-2025
hocam ev bütçesini takip için program arıyorsun diye düşündüm. Birisinden almıştım. Alttaki programı kullanıyorum. Dolar bazlı da Gelir ve Giderinizi görebiliyorsunuz. İndirince dosyada Açıklamalar sayfasını mutlaka okuyunuz. Senin doyanda kasa sayfası tablo formatında olduğu için giriş sayfasından makro ile veri aktarında toplama formülleri hata veriyor. Doğru çalışmıyor. Üzerinde biraz daha işlem yapmak gerekli. Benin gönderdiğim dosyaya bak işini görmezse kendi dosyanda da ilerleriz.
volki kardeşim yanııtn için tşk ler. Yalnız bana önerdiğiniz dosya .xlsb uzantılı olduğundan pek bir şey anlayamadım. Biz en iyisi benim dosya üzerinden yürütelim. Yanız kasa sayfasında verileri yan yana eklerken formul kısmında hata yapmıyordu zannedersem. Ayrıca giriş sayfasına alt alta yazdığımız verileri kopyala yapıştırla kasa sayfasına yan yana yazdırarak aktarım yapılabiliyor. Aklımın almadığı bu işi makro ile yapmaya kalkışıncamı hata vermeye başladı.
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
374
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
volki kardeşim yanııtn için tşk ler. Yalnız bana önerdiğiniz dosya .xlsb uzantılı olduğundan pek bir şey anlayamadım. Biz en iyisi benim dosya üzerinden yürütelim. Yanız kasa sayfasında verileri yan yana eklerken formul kısmında hata yapmıyordu zannedersem. Ayrıca giriş sayfasına alt alta yazdığımız verileri kopyala yapıştırla kasa sayfasına yan yana yazdırarak aktarım yapılabiliyor. Aklımın almadığı bu işi makro ile yapmaya kalkışıncamı hata vermeye başladı.
sorun makroda değil hocam örneğin topla($h$3:h3) formülü var diyelim. sen tablonun altına yeni veri yazıp tablo büyüdüğü zaman topla formülündeki değişmesi gereken hücreler değişmiyor. ekteki dosyayı incele. kasa sayfasında 15.satıra veri yaz. veri yazdıktan sonra tablo büyüyecek. tablo büyüdükten sonra K sütunundaki 15.satırdaki formüle bak.

Benim gönderdiğim dosyayı kullanmayı denemeni isterim. Ev bütçesi için şu an o dosyadan daha iyisi yok. Exceli açınca açıklamalar kısmında kullanımı anlatıyor zaten. Toplu veri girişi ve taksitlerini de tek tıkla girebiliyorsun. Kullanımda sıkıntı yaşarsan yardımcı olurum.
 

Ekli dosyalar

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
374
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
@mehoaga kendi dosyanla ilgili makroyu istersen. bu kod istediğin aktarımı yapacak kod.
Kod:
Sub VerileriYazdir()
    Dim wsGiris As Worksheet
    Dim wsKasa As Worksheet
    Dim satirNo As Long
    Dim i As Long
   
    ' Sayfaları ayarla
    Set wsGiris = ThisWorkbook.Sheets("Giriş") ' Giriş sayfası
    Set wsKasa = ThisWorkbook.Sheets("Kasa") ' Kasa sayfası
   
    ' Giriş sayfasındaki C2:C6 aralığındaki verileri al
    Dim veri As Variant
    veri = wsGiris.Range("C2:C6").Value
   
    ' Kasa sayfasındaki TARİH sütununda ilk boş satırı bul
    satirNo = wsKasa.Cells(wsKasa.Rows.Count, "C").End(xlUp).Row + 1
   
    ' Verileri yazdır
    For i = 1 To 5
        wsKasa.Cells(satirNo, 2 + i).Value = veri(i, 1) ' B sütunundan G sütununa kadar yazdır
    Next i
   
    ' Giriş sayfasındaki C2:C6 aralığını temizle
    wsGiris.Range("C2:C6").ClearContents
   
    MsgBox "Veriler başarıyla kaydedildi ve C2:C6 temizlendi!", vbInformation
End Sub
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
374
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
@mehoaga bunu eklemeyi unuttum. .xlsb ve .xlsm dosyalarının ikisi de makro içerir. Birbirinden farkı yoktur. xlsb dosyaları xlsm dosyalarına göre dosya boyutunu daha çok küçülttüğünden dosya boyutu artmamış olur ve böylece daha hızlı çalışır xlsb dosyaları. o yüzden makro dosyalarda ve projelerde xlsm yerine xlsb uzatısını kullanmak daha yaygındır.
 

mehoaga

Altın Üye
Katılım
16 Mart 2009
Mesajlar
189
Excel Vers. ve Dili
Excel 2003 ve 2007
Altın Üyelik Bitiş Tarihi
30-06-2025
@mehoaga bunu eklemeyi unuttum. .xlsb ve .xlsm dosyalarının ikisi de makro içerir. Birbirinden farkı yoktur. xlsb dosyaları xlsm dosyalarına göre dosya boyutunu daha çok küçülttüğünden dosya boyutu artmamış olur ve böylece daha hızlı çalışır xlsb dosyaları. o yüzden makro dosyalarda ve projelerde xlsm yerine xlsb uzatısını kullanmak daha yaygındır.
Değerli yanıtın için tşk ler;
Deneyip olup olmadığı hakkında dönüş yaparım. Ayrıca diğer ricalarıma bakma şansınız olurmu.

Ayrıca 1. ricam Giriş sayfasında c2 sutununu 2 kez veya tek tıklayınca o hücreye günün tarihini yazdırmak.
2. ricamda c5 sütununa 1 yazıp enter ladım c5 sütununa gelir yazsın veya c5 sütununa 2 yazıp enter ladım gider yazsın böyle bir şey yapılabilirmi acaba.
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
374
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
Değerli yanıtın için tşk ler;
Deneyip olup olmadığı hakkında dönüş yaparım. Ayrıca diğer ricalarıma bakma şansınız olurmu.

Ayrıca 1. ricam Giriş sayfasında c2 sutununu 2 kez veya tek tıklayınca o hücreye günün tarihini yazdırmak.
2. ricamda c5 sütununa 1 yazıp enter ladım c5 sütununa gelir yazsın veya c5 sütununa 2 yazıp enter ladım gider yazsın böyle bir şey yapılabilirmi acaba.
Giriş sayfasının kod bölümüne bunları yapıştır. İstediklerin olur. Çift tıklamada yazar bugunun tarihini
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' C2 hücresine çift tıklama kontrolü
    If Not Intersect(Target, Me.Range("C2")) Is Nothing Then
        ' Bugünün tarihini C2 hücresine yaz ve formatla
        Target.Value = Date
        Target.NumberFormat = "dd.mm.yyyy"
        
        ' Çift tıklama işlemini engelle (edit moduna geçmesin)
        Cancel = True
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' C5 hücresinde değişiklik olup olmadığını kontrol et
    If Not Intersect(Target, Me.Range("C5")) Is Nothing Then
        ' Eğer C5'e 1 yazılmışsa "Gelir", 2 yazılmışsa "Gider" yaz
        If Target.Value = 1 Then
            Target.Value = "Gelir"
        ElseIf Target.Value = 2 Then
            Target.Value = "Gider"
        End If
    End If
End Sub
 

mehoaga

Altın Üye
Katılım
16 Mart 2009
Mesajlar
189
Excel Vers. ve Dili
Excel 2003 ve 2007
Altın Üyelik Bitiş Tarihi
30-06-2025
Giriş sayfasının kod bölümüne bunları yapıştır. İstediklerin olur. Çift tıklamada yazar bugunun tarihini
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' C2 hücresine çift tıklama kontrolü
    If Not Intersect(Target, Me.Range("C2")) Is Nothing Then
        ' Bugünün tarihini C2 hücresine yaz ve formatla
        Target.Value = Date
        Target.NumberFormat = "dd.mm.yyyy"
       
        ' Çift tıklama işlemini engelle (edit moduna geçmesin)
        Cancel = True
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' C5 hücresinde değişiklik olup olmadığını kontrol et
    If Not Intersect(Target, Me.Range("C5")) Is Nothing Then
        ' Eğer C5'e 1 yazılmışsa "Gelir", 2 yazılmışsa "Gider" yaz
        If Target.Value = 1 Then
            Target.Value = "Gelir"
        ElseIf Target.Value = 2 Then
            Target.Value = "Gider"
        End If
    End If
End Sub
wolki_112 kardeşim ellerine kollarına emeklerinize sağlık tşkler. Kardeşim hakkınızı helal ediniz. Bu bana verdiğiniz kod yapısını deneyip size döneceğim.
Son bir sorum olacak ama bana gönderdiğiniz ,xlsb uzantılı dosyayı 2007 versiyon olarak gönderme şansınız olurmu. Ben 2007 versiyon Excel kullandığım için bazı yerlerindeki formüller 2007 de çalışmıyor o yüzden. Gönderdiğin dosya tam benlik olabilir belki ama versiyon yüzünden kullanmayacağım için üzülüyorum. Verdiğin bilgiler ve destek için çok teşekkür ediyorum. İYİKİ VARSINIZ 👍🙏🇹🇷
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
374
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
wolki_112 kardeşim ellerine kollarına emeklerinize sağlık tşkler. Kardeşim hakkınızı helal ediniz. Bu bana verdiğiniz kod yapısını deneyip size döneceğim.
Son bir sorum olacak ama bana gönderdiğiniz ,xlsb uzantılı dosyayı 2007 versiyon olarak gönderme şansınız olurmu. Ben 2007 versiyon Excel kullandığım için bazı yerlerindeki formüller 2007 de çalışmıyor o yüzden. Gönderdiğin dosya tam benlik olabilir belki ama versiyon yüzünden kullanmayacağım için üzülüyorum. Verdiğin bilgiler ve destek için çok teşekkür ediyorum. İYİKİ VARSINIZ 👍🙏🇹🇷
hocam sana gönderdiğim dosyada 2007 de olmayan formül yok sanırım. TOPLAÇARPIM formülü 2007 de de var diye biliyorum. Dosyanın başka versiyonu yok maalesef. Kullandığınız 2007 versiyon baya eski kalmış. hepsilisans.com sitesinde 24 tl ye 2019 lisans satılıyor. İndirmek isterseniz oradan alabilirsiniz aklınızda bulunsun.
 

osman06turgut

Herkes İşi Bitince Teşekkür Etmeden Gidecek!!
Altın Üye
Katılım
25 Nisan 2022
Mesajlar
38
Excel Vers. ve Dili
Office 2021-Türkçe
Altın Üyelik Bitiş Tarihi
30-03-2028
İyi günlerde kullanmanız dileklerimle.
 

Ekli dosyalar

Üst