Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Girilen Bilgilere Göre Yeni Satır Eklemesi

derzulya
derzulya
Excel Cevaplanmış Soruları
10
1150

Girilen Bilgilere Göre Yeni Satır Eklemesi

Çözüldü #1
derzulya
Aktif Üye
derzulya
Bul
Aktif Üye
Adı Soyadı: Bu.... ES....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 13/05/2023,10:28
Yorumları: 186
Konuları: 53
Kayıt Tarihi: 09/03/2009
Teşekkür Puanı: 23
Mesleğiniz: Muhasebe
Merhaba arkadaşlar.

Çalışma sayfasında yüzlerce hücrede bilgiler var. Tarihe göre sıralı durumda. Yeni bir satır eklemek istediğimde ilgili tarihi bulup altına yeni satır ekle yaparak yeni girişlerimi yapıyorum. Bu sayfada şöyle birşey yapmak istiyorum;

Bir butonla yada başka bir yolla başlıklardaki ( a b c d tarih v.s. ) bilgileri girip ekle dediğimde , ilgili tarihi bulup altına veya üstüne yeni satır olarak eklemeli.

Excel'de böyle birşey mümkün olabilir mi? Ana kriterimiz "TARİH"

Access'te yapabilirim bunu ama ben Excel'de yapmak istiyorum mümkünse tabi.
.rar Kitap2.rar (Dosya Boyutu: 65,42 KB | İndirme Sayısı: 0)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Son Düzenleme: 11/02/2021, 08:58, Düzenleyen: derzulya.
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,04:03
Yorumları: 8.395
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.034
dosyanızı xlsm yada xlsb olarak kaydedip yeni bir modül ekleyerek aşağıdaki fonksiyonu o modüle yazın
sayfaya bir buton ekleyip butona aşağıdaki fonksiyonu tanımlayın butona her bastığınızda veriler tarihe göre sıralanır
dediğinizi yanlış anlamadıysam bu şekilde yapabilirsiniz

sub SyfAktarSirala()

Dim Sht As Worksheet

Set Sht = ThisWorkbook.Worksheets("Sayfa1")

Sht.Columns.Sort key1:=Sht.Columns("E"), Order1:=xlAscending, Header:=xlYes

End sub
Cevapla
#3
derzulya
Aktif Üye
derzulya
Bul
Aktif Üye
Adı Soyadı: Bu.... ES....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 13/05/2023,10:28
Yorumları: 186
Konuları: 53
Kayıt Tarihi: 09/03/2009
Teşekkür Puanı: 23
Mesleğiniz: Muhasebe
Malesef bu şekilde işimi görmüyor. benim hatam eksik bilgi verdim. Özür dilerim. çünkü aralara başka şeylerde girecek. ekteki örneğimi güncelliyorum daha iyi anlatabilmek adına.
.rar örnek.rar (Dosya Boyutu: 8,52 KB | İndirme Sayısı: 3)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Son Düzenleme: 10/02/2021, 15:37, Düzenleyen: derzulya.
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,04:03
Yorumları: 8.395
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.034
sonuç aynı sayfaya mı uygulanacak , başka bir sayfaya mı?
ayrıca bu şablon değişmeyecek değil mi?
yani ilk satırda başlıklar, 2. satırdan itibaren veri olacak, arada boş satırlar olmayacak, veri/sütun formatı değişmeyecek, işlem hep bu format üzerinde olacak diğer biçime aktarılacak?
Cevapla
#5
derzulya
Aktif Üye
derzulya
Bul
Aktif Üye
Adı Soyadı: Bu.... ES....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 13/05/2023,10:28
Yorumları: 186
Konuları: 53
Kayıt Tarihi: 09/03/2009
Teşekkür Puanı: 23
Mesleğiniz: Muhasebe
(10/02/2021, 23:55)berduş yazdı: sonuç aynı sayfaya mı uygulanacak , başka bir sayfaya mı?
ayrıca bu şablon değişmeyecek değil mi?
yani ilk satırda başlıklar, 2. satırdan itibaren veri olacak, arada boş satırlar olmayacak, veri/sütun formatı değişmeyecek, işlem hep bu format üzerinde olacak diğer biçime aktarılacak?

SONUÇ aynı yıl için aynı sayfaya. bir sonraki yıl için bir sonraki sayfaya. yani 2022 sayfasına.

evet ilk satırda başlık olacak doğrudur.  dün yoğunluktan orjinal dosyayı temizleyip yükleyemedim. firma içi bilgilerle dolu çünkü. Ancak sanırım artık hasıl oldu yüklemek. bilgileri temizledim. sayfanın formatının etkili olacağını düşünmemiştim o yüzden önceki gibi bi tablo hazırlamıştım. Esas tablom yeni eklediğim dosyadır. kusura bakmayın.
.rar Kitap2.rar (Dosya Boyutu: 65,42 KB | İndirme Sayısı: 4)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#6
derzulya
Aktif Üye
derzulya
Bul
Aktif Üye
Adı Soyadı: Bu.... ES....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 13/05/2023,10:28
Yorumları: 186
Konuları: 53
Kayıt Tarihi: 09/03/2009
Teşekkür Puanı: 23
Mesleğiniz: Muhasebe
Kod:
Sub Makro1()
'
' Makro1 Makro
'

'
'    Rows("8:8").Select
'    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'    Range("A8").Select
'    ActiveCell.FormulaR1C1 = "a"
'    Range("A8").Select
'    Selection.ClearContents

Rows(ActiveCell.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Sub YuvarlatılmışDikdörtgen1_Tıklat()
aylar = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
'For i = 1 To 12
'If Month(ActiveSheet.Range("E2")) = i Then
   sat = ActiveSheet.Columns("D:D").Find(What:=aylar(Month(ActiveSheet.Range("E2"))), LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row
    Rows(sat + 3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveSheet.Range("A2:H2").Copy ActiveSheet.Range("A" & sat + 3)
'End If
'Next i
End Sub
Sub Makro2()
'
' Makro2 Makro
'

'
    Range("D4").Select
    Range("D8").Select
    ActiveWindow.SmallScroll Down:=-15
    Columns("D:D").Select
    Selection.Find(What:="OCak", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("F6").Select
End Sub
Sub Makro3()
'
' Makro3 Makro
'

'
    Range("A6:H6").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
bu kodlarla oldu gibi ama tarihe göre aralara açma yapamadım. her ayın ilk sırasından itibaren ekleme yapıyor bu şekilde. tarih sıra takip etmiyor. yani 10una ekliyorsam 9 undan sonra 11 inden öncesine eklemiyor. hep ilk satıra ekliyor. nasıl bir düzenleme yapmak lazım?
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task