Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 8 sonuçtan 1 ile 8 arasındakiler gösteriliyor.

Konu: EXCEL ŞABLON SAYFA SAYPIMI

  1. #1
    Yeni Üye
    Üyelik tarihi
    Sep 2015
    Mesajlar
    4

    EXCEL ŞABLON SAYFA SAYPIMI

    Herkese merhabalar.Benim sorum şu birinci sayfadaki belirlediğim hücrelere veri girişi yaptığım zaman diğer sayfadaki satırlara otomatik eklenmesi kısaca form'a veri girdiğimiz zaman nasıl satırlara alt alta ekleniyor aynı onun gibi yardımlarınızı bekliyorum teşekkürler.

  2. #2
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    687
    Alıntı serdarsnop Nickli Üyeden Alıntı Mesajı göster
    Herkese merhabalar.Benim sorum şu birinci sayfadaki belirlediğim hücrelere veri girişi yaptığım zaman diğer sayfadaki satırlara otomatik eklenmesi kısaca form'a veri girdiğimiz zaman nasıl satırlara alt alta ekleniyor aynı onun gibi yardımlarınızı bekliyorum teşekkürler.
    Belirlediğiniz hücreler hangileri ve diğer satırlarda hangi hücrler var?
    Hangi hücre hangi sayfada hangi hücreye gidecek.Gördüğünüz üzre sorunuz eksik?

  3. #3
    Yeni Üye
    Üyelik tarihi
    Sep 2015
    Mesajlar
    4
    örnek olarak şöyle diyebilirim
    sayfa 1 de şöyle satırlar var bunlar sayfa 2 de sütün başlıkları olacak,yanına yazdıklarım tarihler nolar ve metreler sayfa2 de sütün başlıklarının altına satır olarak eklenmesini istiyorum ve her yeni değer girdiğimde sayfa 2 de diğer satıra girmesini istiyorum.İlginiz için teşekkürler.
    Tarih:
    No:
    Metre:

  4. #4
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    687
    Alıntı serdarsnop Nickli Üyeden Alıntı Mesajı göster
    örnek olarak şöyle diyebilirim
    sayfa 1 de şöyle satırlar var bunlar sayfa 2 de sütün başlıkları olacak,yanına yazdıklarım tarihler nolar ve metreler sayfa2 de sütün başlıklarının altına satır olarak eklenmesini istiyorum ve her yeni değer girdiğimde sayfa 2 de diğer satıra girmesini istiyorum.İlginiz için teşekkürler.
    Tarih:
    No:
    Metre:
    Bu söylediklerinizle bir şey yapılamaz.Excelde işlem yapabilmek için ,öteki beriki ,diğer şeklinde olamaz.Hücre adresi lazım.
    Hangi hücredeki veri hangi hücreye gidecek gibisinden.

  5. #5
    Yeni Üye
    Üyelik tarihi
    Sep 2015
    Mesajlar
    4
    sayfa 1 de
    A1 hücresinde tarih
    A2 hücresinde NO
    A3 hücresinde metre var
    b1 hücresine yazdığım sayfa 2 den A2 hücresine
    b2 hücresine yazdığım sayfa 2 de B2 hücresine
    b3 hücresine yazdığım sayfa 2 de C3 hücresine otomatik yazmasını istiyorum.Ve sayfa 1 deki bahsettiğim hücrelere her yazdığımda sayfa 2 istediğim yerlere otomatik satırlara eklesin istiyorum.Anlatabildiğim bu teşekkürler.

  6. #6
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    687
    Alıntı serdarsnop Nickli Üyeden Alıntı Mesajı göster
    sayfa 1 de
    A1 hücresinde tarih
    A2 hücresinde NO
    A3 hücresinde metre var
    b1 hücresine yazdığım sayfa 2 den A2 hücresine
    b2 hücresine yazdığım sayfa 2 de B2 hücresine
    b3 hücresine yazdığım sayfa 2 de C3 hücresine otomatik yazmasını istiyorum.Ve sayfa 1 deki bahsettiğim hücrelere her yazdığımda sayfa 2 istediğim yerlere otomatik satırlara eklesin istiyorum.Anlatabildiğim bu teşekkürler.
    Dosyanız linktedir.
    Not:Excelinizin makrolara açık olması lazım(Güvenllk düzeyi düşük)

    DOSYAYI İNDİR

    Kod:
    Sub aktar59()
    Dim sh As Worksheet, sonsat As Long
    Sheets("Sayfa1").Select
    If Not IsDate(Range("B1").Value) Then
        MsgBox "Lütfen geçerli bir tarih giriniz!", vbCritical, "U Y A R I"
        Range("B1").Select
        Exit Sub
    End If
    Set sh = Sheets("Sayfa2")
    sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
    sh.Cells(sonsat, "A").Value = Range("B1").Value
    sh.Cells(sonsat, "B").Value = Range("B2").Value
    sh.Cells(sonsat, "C").Value = Range("B3").Value
    sh.Select
    MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
    End Sub

  7. #7
    Yeni Üye
    Üyelik tarihi
    Sep 2015
    Mesajlar
    4
    Aradığım bu şekildeydi ilginize teşekkürler. Ellerinize sağlık

  8. #8
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.018
    Mrb,
    Orion1 Hocamın izniyle makroya minik bir ilave yaptım. Kendisine teşekkür ediyorum.
    Veriyi aktardıktan sonra veri giriş sayfasına geçiyorsunuz. B1 de günün tarihi var B2 ve B3 hücreleri boş yani veri girişine hazır.
    Kullanım kolaylığı sağlar diye düşündüm.
    Sağlıcakla kalın.

    Sub aktar59()
    Dim sh As Worksheet, sonsat As Long
    Sheets("Sayfa1").Select
    If Not IsDate(Range("B1").Value) Then
    MsgBox "Lütfen geçerli bir tarih giriniz!", vbCritical, "U Y A R I"
    Range("B1").Select
    Exit Sub
    End If
    Set sh = Sheets("Sayfa2")
    sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
    sh.Cells(sonsat, "A").Value = Range("B1").Value
    sh.Cells(sonsat, "B").Value = Range("B2").Value
    sh.Cells(sonsat, "C").Value = Range("B3").Value
    sh.Select
    MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"


    Sheets("Sayfa1").Select
    Range("B1").Value = Format(Now, "dd.mm.yyyy")
    Range("B2:B3").Clear


    End Sub

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •