Alt hücreye kaydırma

[OMERALI1]

Arkadaşlar aşşagıdakı gibi bir makro yazdım fakat d37 hücresi dolu ıse d38-d39-d40-d41 hücrelerinden birine sıra ile kaydırmasını istiyorum.


Sub atama()
'
' atama Makro
' Makro ömer tarafından 13.06.2011 tarihinde kaydedildi.
'

'
Range("R9:W9,Y9:AA9").Select
Range("Y9").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=3
Range("D37:L37").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=6
Range("I38").Select
ActiveWindow.SmallScroll Down:=-6
Range("Q9:AA9").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("L29").Select
ActiveWindow.SmallScroll Down:=6
Range("D37").Select
Selection.Copy
Sheets("Sayfa3").Select
Range("E24").Select
Cells.Find(What:="D0103", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("B5").Select
Sheets("Sayfa1").Select
Range("C37").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sayfa3").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("L30").Select
End Sub

 

[OMERALI1]

yardımcı olabılırmısınız

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklar mısınız?

 

[OMERALI1]

Korhan bey
örnek dosyayı ekliyorum.not olarak renklendirilmiş hücreye açıklamayı yazdım.
Sadece oradakı açıklamaya istinaden makro yazmak istiyorum.Diğer işlemler daka karısık oldugu ıcın onlar fazla gereklı degıl,konu başlıgının yazdıgım makronun sadece d37 hücresine kopyala işleminden sonra d37 hücresi dolu ise d38 oda dolu ise d41 hücrelerine kadar kaydırmasını ıstıyorum.

Bu arada excel.web.tr ile excel bılgım gelişme içerisinde.Burdan herkeze böyle bir paylaşım sitesi yaptıklarından dolayı da içtenlikle teşekkür ediyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Dim Satır As Long
    
    Satır = IIf(Range("D37") = "", 37, Range("D65536").End(3).Row + 1)
    Range("R9:W9,Y9:AA9").Copy Cells(Satır, "D")
    
    'Diğer kodlarınızı buraya yazınız....
End Sub

 

[OMERALI1]

Korhan Bey;

yukarıdakı formulun uzerınde nereye koyacagımı bılmıyorum.Onun üzerınde gösterme şansınız var mı acaba

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub atama()
    '
    ' atama Makro
    ' Makro ömer tarafından 13.06.2011 tarihinde kaydedildi.
    '
    
    '
    Dim Satır As Long
    
    Satır = IIf(Range("D37") = "", 37, Range("D65536").End(3).Row + 1)
    Range("R9:W9,Y9:AA9").Copy Cells(Satır, "D")
    
    Range("Q9:AA9").ClearContents
    Range("D37").Select
    Selection.Copy
    Sheets("Sayfa3").Select
    Range("E24").Select
    Cells.Find(What:="D0103", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    Range("B5").Select
    Sheets("Sayfa1").Select
    Range("C37").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa3").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Sayfa1").Select
    Range("L30").Select
End Sub

 

[OMERALI1]

Korhan Bey;

Elinize sağlık şu an denedim oluyor 2 hafta boyunca bu yazılımda takılmıstım cok tessekkur ederım

 

[OMERALI1]

Korhan bey
bir sorun ıle karsılastım,hücreleri alt alta diziyor fakat d37 hücre verisi devamlı degısıyor oradakı hücre sabit kalmalı.Anlatmak ıstediğim d37 hücresine makro yazdıgımız zaman eger o hüzre dolu ıse bır alta kaydırıyor fakat kaydırırken d37 hücresinide kaydırdıgı hücrenin aynısını d37 hücresine kopyalıyor

 

[Korhan Ayhan]

Selamlar,

Ben sizin kulandığınız kodun ne işlev yaptığını bilemem. Zaten size ilk önerimde kodun ilk bloğunu vermiştim. Siz uyarlarmısınız deyince kodunuzdaki alt satırları benim önerdiğim kodla birleştirdim. Net sonuca gitmek için dosyanızı ekleyip nasıl bir işlem yapmak istediğinizi açıklamanız gerekiyor.

 

[OMERALI1]

Korhan Bey;
Dosya içerisine L13 hücresine açıklamayı yazdım.Uygulamayı deneyebilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Siz her butona ayrı görevler atamışsınız. Bunların ortak yönleri varsa tek bir kod bloğu yazarak işlemler halledilebilir. Fakat detaylı açıklama yapmadığınız için kodu yazamıyorum.

Yani her satırdaki ATAMA butonlarına tıkladığımızda ne gibi işlemler olması gerekiyor? Detaylıca açıklar mısınız?

 

[OMERALI1]

Korhan bey ;
Örnek dosyayı ve Açıklamaları bulunan word dosyasının ekledım.Örnekler ile yaparsanız daha ıyı anlayabılırsınız.