Soru Excel'de A2 satırında ki hücrede yazanı B1'e taşıyacak işlemi 7047 kere tekrarlayacak formül var mı?

[Darth Vader]

Excel'de A2 satırında ki hücrede yazanı B1'e taşımak istiyorum. Bunu da otomatik yapmak istiyorum Çünkü 7047 kere bu işlemin tekrarlanması gerekiyor. Excel de bunun daha kolay yolu var mı? Kopyala yapıştır ile yapmayı denedim olmuyor 3100'den sonra bıktım.

 

[Korhan Ayhan]

Merhaba,

B1 hücresine aşağıdaki formülü yazarsanız değeri taşımış olursunuz.

=A2

 

[Darth Vader]

Merhaba,

B1 hücresine aşağıdaki formülü yazarsanız değeri taşımış olursunuz.

=A2

Onu biliyorum ama sonra A2'yi sileceğim. Alt alta olması için bu yüzden o olmaz. Başka bir formül lazım.

 

[Korhan Ayhan]

Bu durumda aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneme yapabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    If Target <> "" Then
        If Range("B1") = "" Then
            Range("B1") = Target
        Else
            Cells(Rows.Count, 2).End(3)(2, 1) = Target
        End If
        Target.ClearContents
        Target.Select
    End If
End Sub

 

[Darth Vader]

Bu durumda aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneme yapabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    If Target <> "" Then
        If Range("B1") = "" Then
            Range("B1") = Target
        Else
            Cells(Rows.Count, 2).End(3)(2, 1) = Target
        End If
        Target.ClearContents
        Target.Select
    End If
End Sub

Olmuyor. Hiç bir işlem yapmadı

 

[Darth Vader]

Pardon çok pardon yanlış yazdım. Baştan anlatıyorum. A3101 hücresindeki yazıyı B3100'e taşıayacak sonra ise A3103 hücresindekini ise B3102'ye taşıyacak böyle böyle 7047'ye satıra kadar gidecek.

 

[Korhan Ayhan]

A2 hücresine veri girip ENTER tuşuna bastınığınızda veriler B sütununa alt alta listelenecektir.

 

[Darth Vader]

A2 hücresine veri girip ENTER tuşuna bastınığınızda veriler B sütununa alt alta listelenecektir.

Yok olmuyor. Ayrıca B stünunda alt alta listelenmemeli Arada boşluklar kalacağı için her seferinde bir altına yazmalı ki denk gelsin. Boşlukları sonra sileceğim. @Korhan Ayhan Ek olarak en üstte yanlış yazmışım sanki A2'de ki yazıyı B1 hücresinde 7047 kere yazdırmak istiyorum gibi anlaşılıyor ama durum bu değil. Baştan anlatıyorum. A3101 hücresindeki yazıyı B3100'e taşıayacak sonra ise A3103 hücresindekini ise B3102'ye taşıyacak böyle böyle 7047'ye satıra kadar gidecek.

 

[Korhan Ayhan]

Bir de bu kodu deneyiniz.

Option Explicit

Sub Test()
    Dim X As Long, Y As Long
    
    Range("B:B").ClearContents
    
    Y = 1
    
    For X = 2 To Cells(Rows.Count, 1).End(3).Row Step 2
        Cells(Y, 2) = Cells(X, 1)
        Y = Y + 2
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Darth Vader]

Bir de bu kodu deneyiniz.

Option Explicit

Sub Test()
    Dim X As Long, Y As Long
  
    Range("B:B").ClearContents
  
    Y = 1
  
    For X = 2 To Cells(Rows.Count, 1).End(3).Row Step 2
        Cells(Y, 2) = Cells(X, 1)
        Y = Y + 2
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Bu işe yaradı ama tam istediğim şey olmadı. 3828'de kini 3827'ye taşıdı. Benim istediğim ise 3829'da kini 3828'e taşıması. Yani bir altındakini taşıması gerekiyor. @Korhan Ayhan

 

[Korhan Ayhan]

Örnek dosya paylaşabilir misiniz?

 

[Darth Vader]

Örnek dosya paylaşabilir misiniz?

Link

 

[Korhan Ayhan]

Bu dosyaya göre tam olarak yapmak istediğiniz işlem nedir?

 

[Darth Vader]

Bu dosyaya göre tam olarak yapmak istediğiniz işlem nedir?

İngilizce'nin karşısına türkçesi gelmeli.

 

[Korhan Ayhan]

Bu verinin orjinal hali var mı? (Yani hiç ellenmemiş hali)

 

[Darth Vader]

Bu verinin orjinal hali var mı? (Yani hiç ellenmemiş hali)

Malesef yok.

 

[Korhan Ayhan]

4022. satıra kadar sanırım yapmışsınız.

B4022 ye aşağıdaki formülü uygulayın ve altaa doğru sürükleyin.

=EĞER(ÇİFTMİ(SATIR());A4023;"")

İşiniz bittikten sonra B sütununu seçip kopyalayın ve tekrar B sütunu üzerine (özel yapıştır-değerleri) işlemini yapınız.

 

[Darth Vader]

4022. satıra kadar sanırım yapmışsınız.

B4022 ye aşağıdaki formülü uygulayın ve altaa doğru sürükleyin.

=EĞER(ÇİFTMİ(SATIR());A4023;"")

İşiniz bittikten sonra B sütununu seçip kopyalayın ve tekrar B sütunu üzerine (özel yapıştır-değerleri) işlemini yapınız.

Bunun altlarındaki türkçeleri nasıl sileceğiz hocam?

 

[Korhan Ayhan]

B sütunundaki boş hücreleri süzerseniz size A sütunundaki Türkçe karşılıklarını gösterecektir. Kontrollü şekilde seçip silebilirsiniz.

 

[Darth Vader]

B sütunundaki boş hücreleri süzerseniz size A sütunundaki Türkçe karşılıklarını gösterecektir. Kontrollü şekilde seçip silebilirsiniz.

Tamamdır hocam oldu. Boş satırları da sildim yeni bir sayfada ikisini de kopyalayarak birleştirdim. Toplamda ezberlenecek 3541 tane kelime var. Çok teşekkürler. Bir de onları yazım denetimi ile büyük harf yaptım. Süper oldu.