Skip to main content

AccessTr.neT


Girilen Bilgilere Göre Yeni Satır Eklemesi

Girilen Bilgilere Göre Yeni Satır Eklemesi

Çözüldü #1
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
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

Visual Basic Code
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
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
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?
Son Düzenleme: 10/02/2021, 23:59, Düzenleyen: berduş.
Cevapla
#5
(10/02/2021 23:55)berduş Adlı Kullanıcıdan Alıntı: 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
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