Süreklı veri girilen sütunların son dört hücre aktarımı

[tugaydutucu]

Ekte gönderdiğim dosyamda da göreceğiniz gibi A ve B sütunlarına aşağıya doru süreklı veri girilmekte M ve N sutununa A ve B sutunlarının son dört dolu hücrelerini aktarmak istiyorum yardımlarınız için şimdiden teşekkürler

 

[Merhum İdris SERDAR]

Dosyanız ekte.

 

[mehmett]

Aşağıd verdiğim linkte son dolu hücrenin başka bir hücrede gösterilişine fonksiyonlarla pek çok çözüm yolu gösterilmiştir. Son dolu hücre gösterildiği gibi son dört dolu hücre de gösterilebilir. Bu yöntemi kendi dosyanıza uyarlayabilirsiniz.

http://www.excel.web.tr/showthread.php?t=20038

Bir de makrolu çözüm var onun da kodlarını aşağıda görebilirsiniz. Dosyanıza makrolu çözümü uygulayarak ekte gönderiyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
son = [A65536].End(3).Row
Cells(4, 13) = Cells(son, 1)
Cells(4, 14) = Cells(son, 2)
Cells(3, 13) = Cells(son - 1, 1)
Cells(3, 14) = Cells(son - 1, 2)
Cells(2, 13) = Cells(son - 2, 1)
Cells(2, 14) = Cells(son - 2, 2)
Cells(1, 13) = Cells(son - 3, 1)
Cells(1, 14) = Cells(son - 3, 2)
End Sub

 

[tugaydutucu]

Çok Teşekkür Ederim

Sayın Mehmett yardımlarınız için cok teşekkür ederim çalışma güzel ve işimi görecek ama ben bunu A ve B sutununu örnek olarak göndermiştim aslında bana lazım olacak calışmada A ve I sutunu arasındakı bilgilerin son dört hücresinin M,U arasına aktarımı gerekiyor sizin yapmış olduğunuz çalışmayı nasıl benım işimi görecek şekilde ayarlayabiliriz

 

[Merhum İdris SERDAR]

Sayın tugaydutucu,

Benim gönderdiğim dosyayı incelemediniz herhalde.

 

[tugaydutucu]

Sayın yurttaş sizin dosyanızı inceledim fakat arada boşluk yanı veri girilmemiş bir hücre oldugunda ikinci sutun verilerinde kaydırma yapıyor A5 in karsılıgı olan B5 boşise yukarıdan aşağı dolu hücreyi kaydırıyor benim istediğim boş ise yan tarafada sıralamayı bozmadan bos olarak atması

 

[tugaydutucu]

sn mehmett ve sn yuttas her ikinizede çok teşekkur ederim sorunu çözdüm.......

 

[td]

her keze iyi akşamlar sn tugaydutucu nun çalışmasına baktım ve bunu 9 sütuna uygulamak isdedim ama verilerin kaydığını gördüm aslında kaydırmamış olsa çok güzel bir çalışma olacak ve işimize yarıyacak ustalarımdan yardım bekliyorum teşekkürler......

 

[td]

çok çok özür dilerim forumu meşkul ettim vb kodlarındaki bazı sayıları yanlış yamışım sorunu çözdüm kusura bakmayın kod sorunsuz çalışıyor emeği gecenlere teşekkürler çalışan halini ekliyorum.......

 

[td]

bu işlemi Worksheet_Change değilde commad butonla nasıl yaparım bu bira zor sanırım

 

[mehmett]

Son dört satırı farklı bir yerde gösteren kodları bugün yazmıştım ama soru sahibi Sn tugaydutucu çözümü bulduğunu söyleyince buraya göndermemiştim.

Şimdi Sn td konuyu yeniden gündeme getirdiği için hem otomatik çalışan kodları, hem de bir commandbutton'a bağlanabilecek olan kodları aşağıda veriyorum.

1- Bu kod ilgili sayfanın kod sayfasına yazılır ve sayfanın change olayına bağlı olarak kendi kendine çalışır;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:I]) Is Nothing Then Exit Sub
son = [A65536].End(3).Row
For y = 13 To 21
Cells(1, y) = Cells(son - 3, y - 12)
Cells(2, y) = Cells(son - 2, y - 12)
Cells(3, y) = Cells(son - 1, y - 12)
Cells(4, y) = Cells(son - 0, y - 12)
Next
End Sub

2- Bu ise bir modüle yazılır ve bir butona bağlı olarak çalışır;

Sub sondortsatır()
son = [A65536].End(3).Row
For y = 13 To 21
Cells(1, y) = Cells(son - 3, y - 12)
Cells(2, y) = Cells(son - 2, y - 12)
Cells(3, y) = Cells(son - 1, y - 12)
Cells(4, y) = Cells(son - 0, y - 12)
Next
End Sub

 

[td]

sn mehmett çok teşekkür edrim ilginize
takıldığım yerde sizi ragatsız etsem kızmassınız sanırım

 

[td]

sayfa1 deki butonu kullanarak sayfa2 deki verileri vb kodlarında gecen yerlere aktaramıyorum
debug hatası alıyorum yardım edin lütfen...
örnek dosyam ekte......

 

[Levent Menteşoğlu]

S2.Cells([B][COLOR=red]0[/COLOR][/B], y)

Hata yukarıdaki satırdaki kırmızı renkli satır değerindedir. 0 (sıfır) nolu satır yoktur.

 

[td]

sn leventm ustam 0 değerini 1 yaptım ama aynı hatayı yine alıyorum

 

[Levent Menteşoğlu]

sn leventm ustam 0 değerini 1 yaptım ama aynı hatayı yine alıyorum

Bir hata daha varmış onnu atlamışım.

S2.Cells(0, y) = S2.Cells([B][COLOR=red]son - 4[/COLOR][/B], y - 12)

son değişkeni en az 5 olmalıdırki hata vermesin. Bu durumda A4 hücresine herhangi bir şey yazın ve son değişkeninin değer aldığı satırıda aşağıdaki gibi değiştirin.

son = [A65536].End(3).Row[COLOR=red][B]+1[/B][/COLOR]

 

[td]

teşekkurler sn leventm