Cevapla
 
Konu Araçları
Eski 21-04-04, 13:08 #1
mertksk mertksk çevrimdışı
Varsayılan excel'de yardım

A sutununda alt alta satırlar halinde 1000 adet şifrem var.
B sutununda alt alta satırlar halinde 1000 adet seri numaram var.

Şu şekilde düzenlemem gerekiyor:

-öncelikle boş C sütununda C1'e A1'deki şifreyi
C2'ye B1'deki seri no'yu
C3'e A2'deki şifreyi
C4'e B2'deki seri no'yu
sırayla 1000 adet sifre ve serinoyu bu şekilde alt alta sıralamam gerek.
yani C sutununda 2000 satır data olacak.

-yeni C sütununda 1.satır sifre, 2.satır seri no oldu.
C1'deki sifre ve C2'deki serinoyu "bir grup" olarak düşünelim.
alt alta 2000 adet data yani 1000 adet sifre ve seri no'dan oluşan grubumuz var.
grupları şu şekilde yeni D sütununda sıralamamız gerek:
1.grup(C1 ve C2), altına 8.grup(C15 ve C16), altına 15.grup(C29 ve C30)
yani 7 atlayarak gidecek..
tabiki bu bitince de:
2.grup(C3 ve C4), altına 9.grup(C17 ve C18), altına 16.grup(C31 ve C32)
yine 7 atlayarak devam edecek.
bu şekilde 2'li çiftler halinde 1000 grup 2000 data sıralanmış olacak..

çok ayrıntılı anlatmaya çalıştım..
nasıl yapabilirim? şimdiden çok teşekkürler..
__________________
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 21-04-04, 13:11 #2
MiRaBiLiS MiRaBiLiS çevrimdışı
Varsayılan Cvp: excel'de yardım


çok karmaşık ben anlayamadım anlayan varsa yardımcı olsun lütfen..
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 21-04-04, 15:53 #3
HitMan HitMan çevrimdışı
Varsayılan Cvp: excel'de yardım


Banada çok karmaşık geldi hocam sen bunu bir tablo ile capture etsende göndersen de oradan baksak !!!

Mesajı son düzenleyen HitMan ( 22-04-04 - 09:02 )
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 23-04-04, 09:44 #4
falconx falconx çevrimdışı
Varsayılan Cvp: excel'de yardım

küçük bir makro ile halledebilirsin gibi geliyor. Bu macroyu dene üzerinde gerekli değişiklikleri yaparak her iki sorununuda cevaplayabilirsin
Alıntı:
Sub sifresira()
'
' sifresira Macro
' Macro recorded 23.04.2004 by Nafiz Timuroğlu

'Cells(row, column)

Dim t As Single
Dim x As Single
Dim y As Single
Dim sonsatir As Single

x = 1 ' kullanıcı adı sütun
y = 2 ' şifre sütun
z = 3 ' şifre kullanıcı adı konacak sütun
s = 1 'kulaanıcı adı satır no

f = 4 'aktarılacağı sütun
b = 1 ' aktarılacağı satır no

sonsatir = 10

Worksheets("Sheet1").Activate
For j = 1 To sonsatir
Range("A1").Select
Cells(s, x).Copy
Cells(b, f).Select
ActiveSheet.Paste

b = b + 1
Cells(s, y).Copy
Cells(b, f).Select
ActiveSheet.Paste

s = s + 1
b = b + 1

Next j

End Sub
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



Tüm saatler GMT +3. Şuan saat: 06:44
(Türkiye için artık GMT +3 seçilmelidir.)

 
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası. Tatil
Copyright © 2019