sayfalar arası veri tranferi

[kripteks28]

merhaba sayın forum üyeleri;
sayfa 1 de b2 ve b32 hücreleri arası girdiğim veriler(bazıları boş kalıyor) sayfa 2 de c2 ve c32 arasına atsın istiyorum fakat o b2 ayın ilk gününü b32 ise son gününü temsil ediyor sayfa 1 b2 hücresinden veri aldığında sayfa 2 h2 hücresine 01.01.2017 yani ayın ilk günü tarihini atması gerek.yardımlarınızı bekliyorum şimdiden tşkk.

 

[dellerlim]

Sorunu biraz daha açıklayabilir misiniz veya herhangi bir dosya yükleme sitesine örnek dosya yükleyip linki burada paylaşsanız çözülecektir umarım.

 

[kripteks28]

http://dosya.co/fcxlx5i6cmqd/eylül_2017.xlsx.html
mazot sayfasındaki sütünlar araçları temsil ediyor buraya girilen değerler sap sayfasında b2 hücresine miktarı f2 hücresine motorin alan aracı h2 hücresine ise hangi tarihte aldığını otomatik atmasını istiyorum.

 

[Emir Hüseyin Çoban]

. . .

MAZOT sayfasındaki verileri belirli bir düzene göre SAP sayfasına mı aktarmak istiyorsunuz.
Sanırım buradan da programa kopyala> yapıştır yapacaksınız.

. . .

 

[kripteks28]

aynen öyle mazot sayfasında tabloya girdiğim verileri sap sayfasında tarih ve plakaya göre listeleyip programa atacağım....

 

[Emir Hüseyin Çoban]

.

Örneğinizde SAP sayfasında doldurmalar hatalı gibi.
2>50>70>5>10>30 şeklinde doldurulmuş...
MAZOT sayfasına baktığımda 2>50>70>10>5>10>20>30... olması gerekiyor doğru mu?

.

 

[kripteks28]

evet mazot sayfasında yanlış hücreden veri almışım
dikkatin için teşekkürler.Tekrar düzeltip ekledim

http://dosya.co/wv707p9fdle7/eylül_2017.xlsx.html

 

[Emir Hüseyin Çoban]

. . .

Not: Mazot sayfası isminin sonunda bir boşluk var
SAP sayfası H sütununu tarih olarak biçimlendirin.

Sub kod()

Dim S1 As Worksheet: Set S1 = Sheets("MAZOT ")
Dim S2 As Worksheet: Set S2 = Sheets("SAP")

sat = 2
S2.Range("A2:H" & Rows.Count).ClearContents

For Each alan In S1.Range("B2:AN" & S1.Cells(Rows.Count, "A").End(3).Row)

If alan <> "" Then

S2.Cells(sat, "A") = "1500012"
S2.Cells(sat, "B") = alan
S2.Cells(sat, "C") = "L"
S2.Cells(sat, "D") = "C330"
S2.Cells(sat, "E") = "3612"
S2.Cells(sat, "F") = S1.Cells(1, alan.Column)
S2.Cells(sat, "G") = "901"
S2.Cells(sat, "H") = S1.Cells(alan.Row, 1)
sat = sat + 1

End If

Next

End Sub

. . .

 

[kripteks28]

Allah razı olsun kardeşim tam istediğim gibi çok teşekkür ederim.

 

[kripteks28]

peki buna buton atayabilirmiyiz.

 

[Emir Hüseyin Çoban]

.

Evet kodlamayı bu şekilde yaptım.
Youtube dan excel makro buton ekleme şeklinde aratın.

.