verilerin aşagı doğru kayıdı

[galatasaray1981]

Mustafa MUTLU bey saolsun baya yardımcı oldu, ama bir sıkıntı kaldı
veriler sürekli girildiğinde rapor şeklinde kayıt edilmesi
ekte excel sayfasında açıkladım. yardımcı olursanız sevinirim

 

[İhsan Tank]

Merhaba
Açıklamalarınız biraz sıkıntılı olmuş.
5 ve 6. Numaraları alt alta yazmışsınız bu nasıl olacak bilgi verebilir misiniz_?

 

[galatasaray1981]

5 inci sıraya renkler "mavi ,kırmızı sarı gibi" ve onun altınada mavi kırmızı sarı gibi renklerin değerlikleri gelicek

yardımınız için tşkrler

 

[galatasaray1981]

eki tekrar kontrol edermisiniz, İHSAN BEY

 

[İhsan Tank]

5 inci sıraya renkler "mavi ,kırmızı sarı gibi" ve onun altınada mavi kırmızı sarı gibi renklerin değerlikleri gelicek

yardımınız için tşkrler

Sanırım anlatamadım. Sheet2'de 5. numaralı kayıt F1 hücresine 6. numaralı kayıt F2 hücrsine gelecek bu nasıl olacak. onu sormuştum hem alt alta kayıt yapsın demişsiniz. Hemde alt alta satır vermişsiniz_?

 

[İhsan Tank]

eki tekrar kontrol edermisiniz, İHSAN BEY

Bu eki de kontrol ettim. Aynı Siz 5 numaralı kaydı En üst satıra kayıt yapmak istiyorsanız en üst satır devamlı güncelleşecek demektir.

 

[galatasaray1981]

evet aynen öle üst satırda alt satırda devamlı guncelleşcek
COMPANY DATE QUALITY QUANTITY

kusura bakmayın anlatamadgımdan dolayı

yardım ederseniz sevinirim

 

[İhsan Tank]

evet aynen öle üst satırda alt satırda devamlı guncelleşcek
COMPANY DATE QUALITY QUANTITY

kusura bakmayın anlatamadgımdan dolayı

yardım ederseniz sevinirim

Merhaba
Kodu boş bir module kopyalayın ve deneyin.

Option Explicit
Sub aktar_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi
trabzonspor = MsgBox("Kaydı Yapıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Set bordo = Sheets("Sheet1")
Set mavi = Sheets("Sheet2")
kaplan = 6
For ts = 12 To 21
mavi.Cells(1, kaplan) = bordo.Cells(ts, "B")
kaplan = kaplan + 1
Next
kaplan = 6
trabzonspor = mavi.Range("B" & Rows.Count).End(xlUp).Row
mavi.Range("B" & trabzonspor + 1) = bordo.Range("C1")
mavi.Range("C" & trabzonspor + 1) = bordo.Range("C2")
mavi.Range("D" & trabzonspor + 1) = bordo.Range("C5")
mavi.Range("E" & trabzonspor + 1) = bordo.Range("C6")
For ts = 12 To 21
mavi.Cells(trabzonspor + 1, kaplan) = bordo.Cells(ts, "E")
kaplan = kaplan + 1
Next
mavi.Range("A2") = 1
mavi.Range("A2:A" & trabzonspor + 1).DataSeries rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Kaydı Tamamladım", , "Bitiş"
End Sub

 

[galatasaray1981]

çok saol hocam ellerin dert görmesin

 

[İhsan Tank]

çok saol hocam ellerin dert görmesin

Kolay Gelsin
:keyif: