veri doğrulama ile bilg taşıma

[kardesmustafa]

genel sayfasında C9 hücresine tanımalama yaptım. eğer 1 i seçersem tek sayfasındaki verileri C10 hücresinden aşağıya doğru sıralamak istiyorum. eğer 2 yi seçersem çift sayfasındaki verilerin girmesini istiyorum. yardımcı olursanız sevinirim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C9]) Is Nothing Then Exit Sub
On Error Resume Next
Range("C10:C65536").ClearContents
If Target.Value = 1 Then
    sonsat = Sheets("tek").Cells(65536, "C").End(xlUp).Row
    adr = Range(Cells(10, "C"), Cells(sonsat, "C")).Address
    Range(adr).Value = Sheets("tek").Range(adr).Value
End If
If Target.Value = 2 Then
    sonsat = Sheets("çift").Cells(65536, "C").End(xlUp).Row
    adr = Range(Cells(10, "C"), Cells(sonsat, "C")).Address
    Range(adr).Value = Sheets("çift").Range(adr).Value
End If

End Sub

 

[kardesmustafa]

yardım hakkında

vermiş olduğunuz örneği kendi tabloma yerleştirmek istedim ama malesef beceremedim. ekteki dosyaya uygularsanız sevinirim. teşekkürler.

 

[Orion1]

vermiş olduğunuz örneği kendi tabloma yerleştirmek istedim ama malesef beceremedim. ekteki dosyaya uygularsanız sevinirim. teşekkürler.

Yolladığınız örnek dosyada nereye ne yapılacak açıklarsanız.Problemi çözerim.
Ama yolladığınız dosyada şu anda ne yapılacağı konusunda en ufak bir açıklama yok.

 

[kardesmustafa]

B8 e Sedat seçilirse; 2 sayfasından B4-B32 arası gelsin. Sinan seçilirse; F4-F32 arası gelsin

 

[mustix]

Sn:kardesmustafa

formülle hazırlanmış bir alternatifde ektedir.
saygılar

 

[kardesmustafa]

3 numaralı mesajda vermiş olduğum ORNEK.rar dosyasından bahsetmiştim. ilgilenirseniz sevinirm.

 

[AS3434]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b8]) Is Nothing Then Exit Sub
On Error Resume Next
[b9:b37].ClearContents
For u = 9 To 37
If Target.Value = "Sedat ÖZTÜRK" Then
Cells(u, 2) = Sheets("2").Cells(u - 5, 2)
Cells(u, 11) = Sheets("2").Cells(u - 5, 3)
End If
If Target.Value = "Sinan AVCI" Then
 Cells(u, 2) = Sheets("2").Cells(u - 5, 6)
 Cells(u, 11) = Sheets("2").Cells(u - 5, 7)
End If
Next
End Sub

 

[Skorpiyon]

Sayın kardesmustafa,

İstediğiniz bu mudur ?

Saygılarımla...

 

[Ali]

Bunun için makroya gerek yok;

Genel sayfanızdaki B9 hücrenize

=EĞER($B$8="Sedat ÖZTÜRK";'2'!B4;'2'!F4) yazıp aşağı doğru çekiniz.