Bir sayfadaki verileri diğer bir sayfaya aktarma

[ramazan_58]

arkadaşlar ekteki devam durumu belgesindeki devamsızlık sayfasındaki yeşil renkli hücrelerdeki değerlerin liste sayfasındaki aynı renkte olan hücrelere aktarabilirmisiniz.Sayfa parolası 1968 dir.sayfa korumalı olacak.otomatik süz olacak.yardımınız için şimdiden tüm arkadaşlara teşekkür ederim.

 

[Levent Menteşoğlu]

Sorunuzu biraz daha açarmısınız. Aktarmaktan kastınız nedir.

 

[ramazan_58]

bir sayfadaki veriyi başka bir sayfaya kopyalamak veya aktarmak

devamsızlık sayfasında bulunan verileri kopyalayıp liste sayfasına yapıştırmak.
bunu makro kaydet ile yaptığım zaman paste special başarısız diye uyarı verip kod sayfasında düzenlememi istiyor ben de az çok kod yazarım ama bu basit şeyi başaramadım.yardımınız için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub kopyala()
Set s1 = Sheets("devamsızlık")
Set s2 = Sheets("liste")
son = s1.[a65536].End(3).Row
s2.Range("a2:e" & son) = s1.Range("a2:e" & son).Value
End Sub

 

[ramazan_58]

bir sayfadaki bilgileri diğer bir sayfaya aktarmak

üstadım teşekkür ediyorum.iyi çalışmalar

 

[ramazan_58]

a1 değeri 1 iken
b2:b10 seçecek

a1 2 ise b2:b11
a1 3 ise b2:b12 seçecek şekilde kod yazalabilirmisiniz arkadaşlar

 

[Emir Hüseyin Çoban]

a1 değeri 1 iken
b2:b10 seçecek

a1 2 ise b2:b11
a1 3 ise b2:b12 seçecek şekilde kod yazalabilirmisiniz arkadaşlar

. . .

Koşul 3 tane mi yoksa bu şekilde artarak gidiyor mu.

. . .

 

[ramazan_58]

hocam artarak gidiyor

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasını kod bölümüne, A1 hücresinde değişiklik yapınca çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    Range("B2:B" & 9 + Target.Value).Select
End Sub

. . .

 

[ramazan_58]

hocam modüle yazılacak şekilde olabilir mi

 

[Emir Hüseyin Çoban]

hocam modüle yazılacak şekilde olabilir mi

. . .

Sub KOD()
    If Range("A1") = "" Then Exit Sub
    Range("B2:B" & 9 + Range("A1")).Select
End Sub

. . .

 

[ramazan_58]

hocam çok teşekkür ediyorum

 

[ramazan_58]

a1 değeri 1 iken
b2:ı2 seçecek

a1 2 ise b2:ı10
a1 3 ise b2:ı11 hocam az önceki kodu kod sayfasına olacak şekilde satır olacak şekilde yazacak olursak az öncekini tam anlatamamışım

 

[sistem93]

Merhabalar. Aşağıdaki kod işinizi görür herhalde.

Dim ky As Integer
ky = Range("A1").Value
If ky = 1 Then
Range("B2:I2").Select
Exit Sub
ElseIf ky = 2 Then
Range("B2:I10").Select
Exit Sub
ElseIf ky = 3 Then
Range("B2:I11").Select
End If

 

[Emir Hüseyin Çoban]

a1 değeri 1 iken
b2:ı2 seçecek

a1 2 ise b2:ı10
a1 3 ise b2:ı11 hocam az önceki kodu kod sayfasına olacak şekilde satır olacak şekilde yazacak olursak az öncekini tam anlatamamışım

1 ise B2:I2 aralığı doğru mu.

. . .

 

[ramazan_58]

a1 = 1 ise b10:ı10
a1 =2 ise b10:ı11
a1=3 ise b10:ı12
a1=4 ise b10:ı13

bu şekilde devam edecek kod ile modüle


yani a1 deki değer arttıkça aralık bir alt satırı kapsayacak şekilde devam etmesi gerekir.

 

[Emir Hüseyin Çoban]

. . .

Hücre aralığı sürekli değişiyor ???
Başlangıç 2.satırdan 10.satır oldu.

. . .

 

[ramazan_58]

Sub ForNext_1()

Dim x As Integer
For x = 10 To Planla.[h10] + 9
Cells(x, 40).Value = Planla.[f10].Value
Next x

End Sub

bu kod h10 hücresinde diyelim 25 rakamı var
f10 hücresindeki değeri

40. sütundaki 10. satırdan başlayarak 25 kez h10 değerini alt alt yazıyor

bu kodu otomatik yapabilirmiyiz

yani alt alta 200 satır için çalışacak şekilde olabilir mi

yardım eden arkadaşlarıma teşekkür ederim

 

[ramazan_58]

düzeltme


40. sütundaki 10. satırdan başlayarak 25 kez f10 değerini alt alt yazıyor.


bunu f10 değerini h10 sayısı kadar alt alta 40. sütunun 10. satırından
f11 değerini h11 sayısı kadar alt alta 41. sütunun 10. satında itibaren
f11 değerini h11 sayısı kadar alt alta 41. sütunun 10. satında itibaren

 

[ramazan_58]

düzeltme


40. sütundaki 10. satırdan başlayarak 25 kez f10 değerini alt alt yazıyor.


bunu f10 değerini h10 sayısı kadar alt alta 40. sütunun 10. satırından
f11 değerini h11 sayısı kadar alt alta 41. sütunun 10. satında itibaren
f12 değerini h12 sayısı kadar alt alta 42. sütunun 10. satında itibaren

böylece alt alta yazabilecek kod lazım