Ters yapıştırma

[kemalist]

Arkadaşlar elimdeki dosyada binlerce veri var bunları nasıl ters yapıştırabiliriz yani yukarıdan aşağıya olan veriler aşağıdan yukarıya yapışacak bunun yolu nedir bilen var mı .makroylada olabilir.ilginiz için şimdiden teşekkürler.
örnek dosya ektedir.

 

[kemalist]

Arkadaşlar elimdeki dosyada binlerce veri var bunları nasıl ters yapıştırabiliriz yani yukarıdan aşağıya olan veriler aşağıdan yukarıya yapışacak bunun yolu nedir bilen var mı .makroylada olabilir.ilginiz için şimdiden teşekkürler.
örnek dosya ektedir.

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub ters_yapistir()
Dim liste(), myarr(), sat As Long, i As Long, a As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("G4:G65536").ClearContents
sat = Cells(65536, "E").End(xlUp).Row
liste = Range("E4:E" & sat).Value
ReDim myarr(1 To UBound(liste), 1 To 1)
For i = UBound(liste) To 1 Step -1
    a = a + 1
    myarr(a, 1) = liste(i, 1)
Next
If a > 0 Then Range("G4").Resize(a, 1) = myarr
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[uzmanamele]

merhaba

alternatif olsun

Sub ters()
ss = Range("e65536").End(3).Row
j = 4
For i = ss To 4 Step -1
Cells(j, 7) = Cells(i, 5)
j = j + 1
Next
End Sub

 

[kemalist]

sayın evren ve uzman amele çok teşekkür ederim.

 

[kemalist]

Dosyanız ektedir.

Option Base 1
Sub ters_yapistir()
Dim liste(), myarr(), sat As Long, i As Long, a As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("G4:G65536").ClearContents
sat = Cells(65536, "E").End(xlUp).Row
liste = Range("E4:E" & sat).Value
ReDim myarr(1 To UBound(liste), 1 To 1)
For i = UBound(liste) To 1 Step -1
    a = a + 1
    myarr(a, 1) = liste(i, 1)
Next
If a > 0 Then Range("G4").Resize(a, 1) = liste
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

sayın evren kodlar sadece kopyala yapıştır yapıyor tersine çevirmiyor

 

[kemalist]

merhaba

alternatif olsun

Sub ters()
ss = Range("e65536").End(3).Row
j = 4
For i = ss To 4 Step -1
Cells(j, 7) = Cells(i, 5)
j = j + 1
Next
End Sub

sayın uzman amele örnek dosya üzerinde uygulayıp gösterirmisiniz ben kodu yazdım ama çalıştıramadım.anlaşılan daha çok ekmek yemem gerekecek.

 

[Orion1]

sayın evren kodlar sadece kopyala yapıştır yapıyor tersine çevirmiyor

Düzeltmeyi yaptım.
Dosyayı önceki mesajınmdan indirebilirsiniz.

 

[kemalist]

sayınevren teşekkür edrim işlem tamam

 

[Orion1]

sayınevren teşekkür edrim işlem tamam

Rica ederim.
İyi çalışmalar.

 

[kemalist]

Rica ederim.
İyi çalışmalar.

sayın evren iyi günler ters yapıştırma işleminde hücreler arası bağla bağlanabilir mi ?
ilginiz için şimdiden teşekkür ederim.dosya ektedir.

 

[Orion1]

sayın evren iyi günler ters yapıştırma işleminde hücreler arası bağla bağlanabilir mi ?
ilginiz için şimdiden teşekkür ederim.dosya ektedir.

Dosyanız ektedir.

Sub ters_yapistir()
Dim sat As Long, i As Long, a As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("G4:G65536").ClearContents
sat = Cells(65536, "E").End(xlUp).Row
a = 4
For i = sat To 4 Step -1
    Range("G" & a).Formula = "=" & Range("E" & i).Address
    a = a + 1
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[kemalist]

Sayın evren ilginize sonsuz teşekkürler......

 

[Orion1]

Sayın evren ilginize sonsuz teşekkürler......

Rica ederim.
iyi çalışmalar.

 

[kemalist]

ÖĞRENMEK BABINDA SORUYORUM:
Range("C" & a).Formula = "=" & Range("P" & i).Address
RANGE=HEDEF
C= SÜTUN
a = ?
P=sütun
i=?
a ve i harfleri neyi temsil ediyor

 

[kemalist]

tamam hocam çözdüm galiba
("C" & a)
a=6
dendiğinde
C sütununda 6.satır manası çıkıyor öylemi?

 

[Orion1]

tamam hocam çözdüm galiba
("C" & a)
a=6
dendiğinde
C sütununda 6.satır manası çıkıyor öylemi?

Tebrikler.Demekki azcık insan kendini zorlayınca işi çözüyor.
Şimdi bunu siz kendiniz çözmesenizde ben size söylemiş olsaydım.
1 hafta sonra unuturdunuz.Ama şimdi kalıcı oldu.Ömür boyu unutmazsınız.Ben söyleseydim ezbere olurdu.Ama siz üzerinde durdunuz işin özüne indiniz.Edindiğiniz bilgi şimdi ezber değil bilginin ta kendisi oldu.
Hep bu gayreti göstermenizi bekliyorum.İşin ucundan yakaladınız bundan sonrası çorap söküğü gibi gelir.Tabiik yinede çözemediğiniz konular olacak.O zman sorarsınız.
Kolay gelsin.

 

[kemalist]

Sağolun hocam 50 yaşındaki kişinin öğrenmesi biraz güç oluyor

 

[Orion1]

Sağolun hocam 50 yaşındaki kişinin öğrenmesi biraz güç oluyor

Bende 49 yaşındayım.
Ne olacak.Öğrenmenin yaşı yok.Hala öğreniyorum.61 doğumluyum bende.

 

[kemalist]

blok halinde bir ters çevirme işlemi var açıklama ekteki dosyada ilginize şimdiden teşekkür ederim.