aynı hücreyi yazma

[ayarci34]

merhaba arkadaşlar belki sizin için basit bir soru ama arayıp bulamadığım için soruyorum excel aynı hücreyi formülle başka bir satıra nasıl kopyalayabilirim...

mesela C1 de olan tc kimlik numarasını D3 satırına aynen nasıl yazabilirim...

şimdiden teşekkürler..

notkopyalama yap demeyin çünkü 50 kişi var listede ve ben yan satıra 2 şer aralıklı bunları dizmem gerekiyor

 

[BG]

merhaba arkadaşlar belki sizin için basit bir soru ama arayıp bulamadığım için soruyorum excel aynı hücreyi formülle başka bir satıra nasıl kopyalayabilirim...

mesela C1 de olan tc kimlik numarasını D3 satırına aynen nasıl yazabilirim...

şimdiden teşekkürler..

d3 hücresine ; =c1 yazın

 

[BG]

yada örnek dosyanızı ekleyin

 

[ayarci34]

arkadaşım çok sağol bu kadar hızlı cevap beklemiyordum çok sağolasın ben biraz uğraşım olmazsa sana yollamaya çalışırım eline sağlık..

 

[ayarci34]

arkadaşım dosyayı ekledim aynı şekilde devam etsin istiyorum kopyaladığımda sıra birden şaşıyor..bunu öğrenirsem bir çok dosyamda işe yarayacak umarım anlatabilmişimdir..

 

[Necdet]

siz tam olarak ne yapmak istiyorsunuz?

 

[BG]

arkadaşım dosyayı ekledim aynı şekilde devam etsin istiyorum kopyaladığımda sıra birden şaşıyor..bunu öğrenirsem bir çok dosyamda işe yarayacak umarım anlatabilmişimdir..

açıkcası anladığım söylenemez amacınız c sütununda olan değerleri d sütununda göstermek mi?

 

[ayarci34]

C hücresindeki rakamları yandaki D hücresinde 2 şer sıra boşlukla yazmak istiyorum....

bunları kopyala yapıştırla yapabilirim ama bu liste daha başlangıç ufak bir bölümü o yüzden bunu öğrenebilirsem D1 hücresine 3 sıra ara ile kopyaladığım rakamlar bir başka excel dosyasına yapıştırma yapılcağından ancak bu şekilde oturuyor...

 

[ayarci34]

tekrar ekledim dosyayı sanırım anlaşılacaktır..

 

[Merhum İdris SERDAR]

tekrar ekledim dosyayı sanırım anlaşılacaktır..

Dosyanız ekte.

.

 

[Necdet]

Merhaba,

Makrolu çözüm isterseniz aşağıdaki kodları kullanabilirsiniz.

(Gerçek datanızda başlık varsa kodlarda küçük bir değişiklik yapmak gerek).

Sub Kopyala()
Dim i, j As Long
j = 1
Application.ScreenUpdating = False
[D:D].ClearContents
For i = 1 To [C65536].End(3).Row
    Cells(j, "D") = Cells(i, "C")
    j = j + 3
Next i
Application.ScreenUpdating = True
End Sub

 

[ayarci34]

çok teşekkürler arkadaşım tam istediğim gibi oldu biraz karışık formülü var ama işimi fazlasıyla görür...eline sağlık..ilginiz için çok teşekkürlerr..

 

[ayarci34]

necdet bey sizin çalışmanızda çok güzel olmuş sizede çok teşekkürler allah razı olsun uğraşlarınız için..