• DİKKAT

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

satır ekletme belilenen satırdan itibaren silme acil yardım

  • Konbuyu başlatan Konbuyu başlatan yunka
  • Başlangıç tarihi Başlangıç tarihi
Katılım
23 Ocak 2011
Mesajlar
110
Excel Vers. ve Dili
2007
selamın aleyküm sayın hocalarım ekteki dosyada
verileri sayfalara dağıtım yapıyorum sayfalarda veriler alt satılara doğru
ekleniyor acaba eklemeyi üst satırdan başlayıp eski verileri aşağıya kaydırabilirmiyiz ayrıca diyelimki satır sayısı 30 buldu 30 ncu satır otomatik
olarak sildirilebilirmi dosya ektedir teşekkürler
 

Ekli dosyalar

merhaba;
dağıt makronuzu şu şekilde düzenledim.Dener misiniz?
Kod:
Sub Dağıt2()
Dim i As Long
Dim Sayfa As String
Set sg = Sheets("Veri")
sg.Select

For i = 7 To [a65536].End(3).Row

    Sayfa = Trim(Cells(i, "A"))
    
    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa
        sg.Select
        Range("A1:E1").Copy Sheets(Sayfa).[a1]
    End If
    
    Range("A" & i & ":E" & i).Copy 'Sheets(Sayfa).Range("A" & Sheets(Sayfa).[a65536].End(3).Row + 1)
    Sheets(Sayfa).Rows("2:2").Insert Shift:=xlDown
    w = Sheets(Sayfa).Cells(65536, "A").End(3).Row - 1
    
    If w >= 30 Then
    Sheets(Sayfa).Rows("31:31").Delete Shift:=xlUp
    End If
Next i

End Sub
 
malesef çalışmadı size zahmet dosyada yapabilirmisiniz bana çok lazım bu uygulama teşekkür
 
Makro;belirttiğiniz şartlarda çalışacaktır.

kardeşim çok teşekkür ediyorum son bi isteğim var ama
bu hisse sayfalarında a ya bi sütun eklesem veri tarihini burda
gösterebilsem teşekkür
ayrıca bu verileri aktarırken sadece kendi belirlediğim hisselere sayfa açabilirmi 300 tane hisse var ben sadece 20 sini takip ediyorum
ALLAH RAZI OLSUN yardımların için çok teşekkür.
 
kardeşim çok teşekkür ediyorum son bi isteğim var ama
bu hisse sayfalarında a ya bi sütun eklesem veri tarihini burda
gösterebilsem teşekkür
ayrıca bu verileri aktarırken sadece kendi belirlediğim hisselere sayfa açabilirmi 300 tane hisse var ben sadece 20 sini takip ediyorum
ALLAH RAZI OLSUN yardımların için çok teşekkür.
 
Arkadaş eline sağlık süper olmuş
ya bide şu sadece istediğim hisseleri açsa olurmu acaba
yani mesala sadece netası aktarsam mesala
 
merhaba;
veri sayfasının en soluna boş bir sütun ekleyiniz.Eklediğiniz bu sütuna(A sütunu) hangi hisselerin bilgileri güncellenecekse o hisselerin hizasına, "x" işareti bırakınız,ve aşağıdaki kodu "Dağıt" makrosuyla değiştiriniz.Kullanmayacak olduğunuz diğer hisselerin sayfalarını silmeyiniz.

Kod:
Sub Dağıt()
On Local Error GoTo 20
Dim i As Long
Dim Sayfa As String
Set sg = Sheets("Veri")
sg.Select
d = InputBox("Veri Tarihini gg/aa/yyyy Şeklinde Giriniz.", "Uyarı", Date)
If Not IsDate(d) Then
MsgBox "Girilen değer tarih değildir." & Chr(10) & "Tekrar giriş yapınız."
Exit Sub
End If

For i = 7 To [b65536].End(3).Row

    Sayfa = Trim(Cells(i, "b"))
If Sheets("veri").Range("b" & i).Offset(0, -1).Value = "x" Then
    
    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa
        sg.Select
        Range("b1:f1").Copy Sheets(Sayfa).[b2]
    End If
    
    Sheets(Sayfa).Rows("2:2").Insert Shift:=xlDown
    Range("b" & i & ":f" & i).Copy Sheets(Sayfa).Range("B2") 'Sheets(Sayfa).Range("B" & Sheets(Sayfa).[a65536].End(3).Row + 1)
    Sheets(Sayfa).Range("A2").Value = d
    Sheets(Sayfa).Columns(1).EntireColumn.AutoFit
    w = Sheets(Sayfa).Cells(65536, "B").End(3).Row - 1
    If w >= 30 Then
    Sheets(Sayfa).Rows("31:31").Delete Shift:=xlUp
    End If

End If
Next i
MsgBox "Veri Aktarma İşlemi Tamamlandı."
20:
End Sub
 
çalışmadı ama boş ver bana yeter bu çok teşekkür ayırdığınız vakit
ve bilgi paylaşımınız için
 
Geri
Üst