DİĞer Sayfalara Ayni Verİ Nasil Aktarilir

[safranbolulu]

Excelde Bİr Sayfadakİ Verİnİn Aynisini DİĞer Sayfaya Veya Sayfalara Nasil Aktarabİlİrİm

 

[Orion1]

Excelde Bİr Sayfadakİ Verİnİn Aynisini DİĞer Sayfaya Veya Sayfalara Nasil Aktarabİlİrİm

Makroyla veya formülle.

 

[Ferhat Pazarçevirdi]

Makroyla veya formülle.

Evren bey, çok net! bir cevap olmuş bu

 

[Excelmy]

İptal edildi :hey:

 

[htsumer]

Doğru yanıt makro veya formül ile.Eğer nasıl bir formül yada makroyla diye sorsaydı ona göre cevap verilirdi.:mrgreen:

Arkadaşlar şunu tavsiye edelimmi ?? :hey:

=E&#286;ER(SATIR()-SATIR(A$2:A$100)+1>SATIRSAY(DATA!$A$2:$A$100)-E&#286;ERSAY(DATA!$D$2:$D$100;"<>"&WSN);"";DOLAYLI("DAT A!"&ADRES(K&#220;&#199;&#220;K((E&#286;ER(DATA!$D$2:$D$100=WSN;SATIR(D ATA!$D$2:$D$100);SATIR()+SATIRSAY(DATA!$D$2:$D$100 )));SATIR()-SATIR(A$2:A$100)+1);S&#220;TUN(DATA!A$2:A$100);4))) ne dersiniz ??

Kuman senin dedi&#287;in ile sorunun ne alakas&#305; var?

 

[Excelmy]

bildiniz 10 puan - &#231;ok puan

 

[htsumer]

bildiniz 10 puan - &#231;ok puan

Sa&#231;malama..Sen kendini ne zannediyorsun..Sanam&#305; kalm&#305;&#351; puanlamak

 

[Skorpiyon]

Sayın safranbolulu,

Örneğin Sayfa1 A1 hücresinin değerini Sayfa2 A1'e aktaracaksınız.
Sayfa2'ye geçin. A1 hücresine = koyun ve Sayfa1 sekmesine tıklayıp A1 hücresine tıklayın ve Enter'e basın.

Veya kısaca;
Sayfa2 A1 hücresine =Sayfa1!A1 yazın.

Sayfa1'de A1'e ne yazarsanız Sayfa2'de A1 de aynısı olur.
Kolay gelsin...

 

[htsumer]

Excel Web Tr'forumuna yak&#305;&#351;&#305;r bir cevap &#351;ekli..Sayg&#305;lar &#350;aban bey..

Makro ile (Makro kaydet ile yap&#305;lm&#305;&#351;t&#305;r)

Sub kaydet()
    Cells.Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("Sayfa1").Select
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

 

[Orion1]

Evren bey, &#231;ok net! bir cevap olmu&#351; bu

Say&#305;n arkada&#351;&#305;m&#305;z soruyu genelleyerek sormu&#351; bende cevab&#305; genelleyrek verdim.
Ama biraz zahmete girip deseydi ki ben &#351;u sat&#305;rdaki h&#252;creleri &#351;u sat&#305;rda &#351;u s&#252;tuna akatr&#305;cam bende ona g&#246;re cevap verecektim.

 

[denksal123]

evren karde&#351; peki ben soray&#305;m sayfa 1 deki s&#305;ral&#305; veriyi ;
sayfa 2 deki a6
sayfa 2 deki a38
sayfa 2 deki a60
sayfa 2 deki a92
sayfa 2 deki a114
sayfa 2 deki a146

bu &#351;ekilde nas&#305;l atar&#305;z yani sayfa 2 deki sat&#305;rlar 32 ,22 ,32 ,22 diye sat&#305;r atlatarak &#351;imdiden te&#351;ekk&#252;r ederim

 

[Orion1]

evren kardeş peki ben sorayım sayfa 1 deki sıralı veriyi ;
sayfa 2 deki a6
sayfa 2 deki a38
sayfa 2 deki a60
sayfa 2 deki a92
sayfa 2 deki a114
sayfa 2 deki a146

bu şekilde nasıl atarız yani sayfa 2 deki satırlar 32 ,22 ,32 ,22 diye satır atlatarak şimdiden teşekkür ederim

Buyurun dosyanız..

Sub atlayarak()
Dim sat_a As Long, sat_b As Long, sorgu As Byte
sat_a = 6
Range("B1:B65536").ClearContents
Do While Cells(sat_a, "A").Value <> ""
    sat_b = sat_b + 1
    Cells(sat_b, "B").Value = Cells(sat_a, "A").Value
    If sorgu = 0 Then
        sat_a = sat_a + 32
        sorgu = 1
        Else
        sat_a = sat_a + 22
        sorgu = 0
    End If
Loop
MsgBox "İşlem Tamamlandı.."
End Sub

 

[denksal123]

kardeş eline sağlık ama tam istediğim anlatamadım ben onun için ekte dosya var incelersin sevinirim çok teşekkür ederim yardımların için

 

[Orion1]

kardeş eline sağlık ama tam istediğim anlatamadım ben onun için ekte dosya var incelersin sevinirim çok teşekkür ederim yardımların için

Buyurun dosyanız.

 

[denksal123]

hocam b&#252;y&#252;ks&#252;n ellerine sa&#287;l&#305;k burdan yola &#231;&#305;karak i&#351;imi biraz daha hafifletecem &#231;ok te&#351;ekk&#252;r ederim

 

[Orion1]

hocam büyüksün ellerine sağlık burdan yola çıkarak işimi biraz daha hafifletecem çok teşekkür ederim

Rica ederim.
iyi çalışmalar.:cool.

 

[denksal123]

evrenim ya ben sayfa 2 'nin sat&#305;rlar&#305;n&#305; birle&#351;tirdi&#287;imde Sheets("Sayfa2").Range("A1:A65536").ClearContents hatas&#305; veriyor bunu nas&#305;l yapabilirim (sar&#305;ya boyan&#305;yor)



ayr&#305;ca sayfa 1 deki (b) sutunundaki yaz&#305;lan kelimeleri sayfa 2 deki birli&#351;tirilmi&#351; olan sat&#305;r olan V7 nas&#305;l atlatarak yazabiliriz

alt mesajda dosya var!!!!!!

 

[denksal123]

yapılacak dosya ekte

sana zahmet bu dosyayı düzeltirsen çok memnun olurum tşk ederim şimdiden

 

[Orion1]

B sütunundaki Veriler sırasıyla 1nci satırla 27000ninci satır arasında kırmızı dolgu renkli hücrelere aktarmak demek 1nci satırdan 27000nci satıra kadar döngüyü girmek demek olur ki,zavallı excel yerlerde sürüm sürüm süürünür.
Bu düşünceden bence vazgeçin.Dolgu rengine göre diğilde herhangi bir kelimeye harfe veye kelimelere göre olsaydı sorun hallolurdu ama bu şekilde boşverin.

 

[denksal123]

evrenim ben dolgu olsun istemiyorum sadece sana yard&#305;mc&#305; olsun diye bir ka&#231;tane h&#252;creyi dolgu yapt&#305;m benim dolguyla i&#351;im yok