tek tuşla farklı excel deki verileri çekme

[werem]

Merhaba üstatlarım,
çalıştığım işyerimde bir sorunla karşılaştım işin içinden çıkamıyorum. Bu şekilde 5-10 veri olsa manuel gireceğim ancak 1.000 den fazla var.

Özetle konu şu : DATALAR sayfasındaki verileri farklı bir şablon olan VERİLER sayfasına aktarmam gerekiyor.

iki sayfada da aynı numaralar eşleştirilebilir. görselde anlatmaya çalıştım umarım anlaşılmışımdır. örnek excel de ektedir.

 

[bycakir]

Denermisin

Sub getir()
Set sh = Sheets("DATALAR")
Set sh1 = Sheets("VERİLER")
j = 20

For i = 11 To 35
test = sh.Cells(3, i)
If test = 0 Then

Else

sh1.Cells(5, j) = sh.Cells(3, i)
sh1.Cells(5, j + 1) = sh.Cells(2, i)
j = j + 2
End If
Next

End Sub

 

[bosislermuduru]

Dosyayı drive yüklesende bizde görsek

 

[werem]

Denermisin

Sub getir()
Set sh = Sheets("DATALAR")
Set sh1 = Sheets("VERİLER")
j = 20

For i = 11 To 35
test = sh.Cells(3, i)
If test = 0 Then

Else

sh1.Cells(5, j) = sh.Cells(3, i)
sh1.Cells(5, j + 1) = sh.Cells(2, i)
j = j + 2
End If
Next

End Sub

Hocam çalıştıramadım, excel de örnek olarak koymaşansınız varmıdır acaba

 

[werem]

Dosyayı drive yüklesende bizde görsek

İndir TEST

Dosyayı indir TEST

dosya.co

tabi, buyurun

 

[bycakir]

hocam hafta sonu çalışmadığım için göremedim sorun nedir ?

 

[werem]

hocam hafta sonu çalışmadığım için göremedim sorun nedir ?

Sorun hiç bir aksiyon yapmaması, yani kodu çalıştırdığımda aksiyon yok hocam

 

[bycakir]

denermisiniz? işlerim yogun oldugundan geç dönüyorum. daha basit olarak yapılabilir berki ama ben parça parça baktıgımdan ekleyerek ilerledim.

 

[werem]

denermisiniz? işlerim yogun oldugundan geç dönüyorum. daha basit olarak yapılabilir berki ama ben parça parça baktıgımdan ekleyerek ilerledim.

Hocam Harikasınız yahu çok teşekkür ederim, tıkır tıkır çalışıyor.
+1 ufak bir sorum olacak, burada "4.GÜÇ DEĞİŞİMİ" kısmını nasıl devam ettirebilirim. 5.,6.,7. gibi. sorguda nereyi güncellemeliyim?

 

[bycakir]

hocam For i = 11 To 35 35 i her güç için 2 artırın 5. guc için 37 6. güc için 39 gibi

 

[werem]

hocam For i = 11 To 35 35 i her güç için 2 artırın 5. guc için 37 6. güc için 39 gibi

çok çok teşekkür ediyorum. çok sağolun

 

[werem]

hocam For i = 11 To 35 35 i her güç için 2 artırın 5. guc için 37 6. güc için 39 gibi

Üstat, dediğiniz gibi artırınca böyle bir hatayla karşılaştım.