Seçilen Hücreleri Başka Bir Satırda Yanyana Sıralama

[zaffer1981]

zahmetleriniz için çok sağolun sayın asri.
son bir şey rica edebilir miyim.
taşıma işini en üst satırdan yani ilk satırdan başlamak üzere yapabilir mi.
tekrar teşekkürler

 

[Asri]

zahmetleriniz için çok sağolun sayın asri.
son bir şey rica edebilir miyim.
taşıma işini en üst satırdan yani ilk satırdan başlamak üzere yapabilir mi.
tekrar teşekkürler

Zaten konunun amacı karışık seçimlerin düzenli sıralanması değilmi.

Bir önceki mesajımda da yazdığım gibi, ilk satırdan itibaren seçerseniz
İlk satırdan taşımaya başlar.

 

[zaffer1981]

Yaklaşık altubin satırlık bir veriden alt alta sıralı bir tablodan seçtiğim hücreleri üst satıra taşımak istiyorum. kodu çalıştırdığımda en alttaki (altıbininci) dolu satırın altına taşıyor seçtiğim verileri.
taşırken de en alta iniyor sayfa ben tekrar en başa çıkıyorum.

 

[Asri]

Yaklaşık altubin satırlık bir veriden alt alta sıralı bir tablodan seçtiğim hücreleri üst satıra taşımak istiyorum. kodu çalıştırdığımda en alttaki (altıbininci) dolu satırın altına taşıyor seçtiğim verileri.
taşırken de en alta iniyor sayfa ben tekrar en başa çıkıyorum.

Siz taşıma işini en üst satırdan başlasın deyince farklı anlaşılıyor.

Taşıma sonucunu mu ilk satıra yazsın.
yani her taşıdığını ilk satıra yazıp sonrakileri aşağamı kaydırsın.

Bu durumda seçili olan hücrelerin de aşağı kayma gibi bir sorunu olabilir.
Örnek dosya gönderir misiniz?

 

[zaffer1981]

evet asri bey o şekilde olabilirse çok işime yarar.
yalnız taşıma işlemini yaparken seçtiğim hücrelerin olduğu kısımdan direk üste çıkmasın. maksadım en alttaki verileri seçip taşı dediğimde taşıma yapan alana gidiyor sayfa ben de tekrar yeni seçeceğim hücrelerin olduğu alana inmek zorunda kalıyorum

 

[Asri]

evet asri bey o şekilde olabilirse çok işime yarar.
yalnız taşıma işlemini yaparken seçtiğim hücrelerin olduğu kısımdan direk üste çıkmasın. maksadım en alttaki verileri seçip taşı dediğimde taşıma yapan alana gidiyor sayfa ben de tekrar yeni seçeceğim hücrelerin olduğu alana inmek zorunda kalıyorum

dosya.tc yada dosya.co da asıl dosyaya benzer örnek dosya linki?

 

[zaffer1981]

hazırlayıp gönderiyorum

 

[zaffer1981]

http://dosya.co/x6xgx34tddhm/Örnek_Dosya.xlsx.html

dosya ekte sayın asri.

 

[zaffer1981]

bakabildiniz mi acaba?

 

[Asri]

bakabildiniz mi acaba?

Merhaba,

Örnek dosyanız ile yeni bir konu açınız. Biraz daha detaylı açıklama yaparsanız. Daha hızlı sonuç alırsınız.

Örnek dosyanızdaki bilgilere bakılır ise bu konudan farklı bir çözümü olacaktır

 

[Asri]

Tablolar tablo sayfasında gönderdiğiniz formatta olmalı.
Satır sayıları önemli değil.

Butona bastığınızda Tablo Verileri sayfasında tcno ve tablolardaki son satırlar eklenmiş olacaktır.

http://dosya.co/9pe1un6xuwnx/Tablodan_Verial.xlsm.html

Sub menu()
    Call temizle
    Call veritopla
    MsgBox ("Verileri toplama işlemi tamamlandı")
End Sub

Sub temizle()
    Sheets("Toplanan Veriler").Select
    Cells.Select
    Selection.Clear
    Selection.NumberFormat = "@"
    Range("A1").Select
    Sheets("Tablolar").Select
End Sub

Sub veritopla()
   Set sh = Sheets("Toplanan Veriler")
   sonsatir = Cells(Rows.Count, "C").End(3).Row
   verial = False
   satir = 0
   For i = 1 To sonsatir
     bilgi = Cells(i, 2).Value
     If (bilgi = Empty) And Cells(i, 1).Value = "GÖREV BELGESİ" Then
        verial = True
        GoTo son
     End If
     
     If InStr(bilgi, "T.C. Kimlik No") > 0 Then
        tcno = Cells(i, 4).Value
     End If
     
     If bilgi = "" And verial Then
        satir = satir + 1
        sh.Cells(satir, 1).Value = tcno
        For j = 2 To 9
          sh.Cells(satir, j).Value = Cells(i - 1, j - 1).Value
        Next j
        verial = False
     End If
son:
   Next i
End Sub

 

[zaffer1981]

emeğiniz için çok teşekkürler. Normalde tablolar sayfası ortak ağda başka bir dosya. ben toplanan veriler sayfasını kendi belgelerimde ayrı bir klasörde tutsam düğmeyi ve kodları toplanan veriler sayfasında yapabilir miyiz. yani tablolar sayfasına ben hiç müdahale etmiyorum dosya kapalı dahi olsa sadece oradan ben güncel verileri çekmek istiyorum toplanan veriler sayfasına. düğme ve kodlar da toplanan veriler sayfasında olursa çok şahane olur sayın asri.

 

[zaffer1981]

Görev belgesi satırının altındaki 7 ,8 hücre boş olduğunda sonuç vermiyor. Son satırı bulmuyor maalesef

 

[zaffer1981]

yardım edebilecek birisi yok mu?

 

[Asri]

yardım edebilecek birisi yok mu?

Sizi, elimden geldiğince yönlendirmeye çalışıyorum ama dikkate almıyorsunuz.

1- Yeni bir konu açın.
2- Örnek dosyalarınızı ekleyin.
- Ağdaki dosya diyorsunuz ama bu nasıl bir dosya belli değil. İçinde tablo var ama bu tablo hangi sayfada hangi satır ve sütundan başlıyor bunları bilmek lazım.
- Olması gereken sonuç dosyasını ekleyin. Bu sonuç dosyası örnekleriniz ile bire bir uyuşmalı ki yardımcı olacak kişi bir bağlantı kurabilsin.

Görev belgesi satırının altındaki 7 ,8 hücre boş olduğunda sonuç vermiyor. Son satırı bulmuyor maalesef

Örnek tablolarınızın hiç birinde böyle bir boşluk yok. Yazılım yapılırken tüm ihtimaller göz önüne alınarak yapılmaya çalışırsa oldukça zaman alacaktır.

Bu yüzden örneklerinizi olabildiğinde arttırın ve farklılıkları siz bildirin. Yardımcı olacak kişi tahmin etmeye çalışmasın.

İyi çalışmalar.