[ÇÖZÜLDÜ] Makroda verileri alt alta sıralamak

[burj_11]

Merhabalar,

cok basit bir konuda yardıma ihtiyacım excel de 1. sayfada girilen verilen 2. sayfada alt alta sıralanmasını istıorum ama bir turlu başaramadım.
Altta benim kodum var. burda rows da sayının otomatik artmasını sağlamam lazım ama yapamadım.


Range("A1:A5").Select
Selection.Copy
Sheets("Sayfa2").Select
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("C16").Select
Sheets("Sayfa2").Select
End Sub

 

[Necdet]

Merhaba,

Örnek bir dosya ile sorunuzu destekleyiniz. Sayfa 1 de girilen verilerin sayfa2 de sonuna mı eklensin istiyorsunuz, yoksa sayfa2 de sıralansın mı istiyorsunuz.

Verdiğiniz kodlarda Sayfa2 ye kopyalarken işlemi tersine çeviriyorsunuz. İyice kafam karıştı. Sonra C16 hücresini seçiyorsunuz vs vs vs.

Örnek dosya ve olması gereken halini yazarsanız daha çabuk yardım alırsınız.

İyi Bayramlar.

 

[burj_11]

Ekte örnek dosya var.. sheet 1 de girdiğim verilerin aslında sheet 2 de alt alta birinci satırdan itibaren sıralanması istiyorum. Suan yaptığım işlem yeterli gibi duruyor.

Ama sheet 1 e şimdi kayıt, kontrol gibi butonlar eklemek istıyorum. macro bu butonlar tıklanınca çalışın diye.

dosyayı ınceleyınce anlaşılır umarım.

teşekkurler

 

[Orion1]

Dosyanız ekte.

Sub sayfa2ye_kaydet()
Dim sat As Long, i As Byte
Sheets("Sheet1").Select
sat = Sheets("sheet2").Cells(65536, "B").End(xlUp).Row + 1
If sat >= 65533 Then
    MsgBox "Sayfa2'de Satır doldu.Başka kayıt yapamazsınız..!!", vbCritical, "UYARI"
    Exit Sub
End If
For i = 5 To 18
    Sheets("Sheet2").Cells(sat, i - 3).Value = Cells(i, "C").Value
Next i
MsgBox "Aktarma Gerçekleşti..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[burj_11]

eline sağlık çok sağol..

bu dosyadaki bilgileri access e aktarmak ve orda arama motoru yazmak istıorum.

biraz makro bılsem de hiç access bilmiorum.

varsa bilgin biraz, yol gösterirmisin?

 

[Orion1]

eline sağlık çok sağol..

bu dosyadaki bilgileri access e aktarmak ve orda arama motoru yazmak istıorum.

biraz makro bılsem de hiç access bilmiorum.

varsa bilgin biraz, yol gösterirmisin?

Bu konu ADO-SQL konusuna giriyor.
Sanırım ADO-SQL konusunda uzman arkadaşlarımız bu sorunuza cevap vereceklerdir.