İlk Boş Hücreye Veri Yapıştırma

[Volkan Öztürk]

Arkadailar. Forumdaki bilgiler için öncelikle hepinize teşekkürlerimi sunarım.Diyebilirimki baştan aşağı bi program yaptım sayenizde. Yanlız bir yerde takıldırm. Şöyle söyleyeyim; A1 ücresindeki değeri kopyalayıp c sütunuun aşağı doğru ilk boş hücresine yapıştıran bi makro. Çok basit olduğundan eminim. Diğer başlıklarda ki bilgileri ve kodları uyguladım bir türlü olmadı. Yardımınız için şimdiden teşekkürler

 

[N.Ziya Hiçdurmaz]

Sub test()
say = [c65000].End(3).Row + 1
Range("c" & say) = [a1].Value
End Sub

 

[Merhum İdris SERDAR]

Arkadailar. Forumdaki bilgiler için öncelikle hepinize teşekkürlerimi sunarım.Diyebilirimki baştan aşağı bi program yaptım sayenizde. Yanlız bir yerde takıldırm. Şöyle söyleyeyim; A1 ücresindeki değeri kopyalayıp c sütunuun aşağı doğru ilk boş hücresine yapıştıran bi makro. Çok basit olduğundan eminim. Diğer başlıklarda ki bilgileri ve kodları uyguladım bir türlü olmadı. Yardımınız için şimdiden teşekkürler

Sub sonsatır()
a = Cells(65536, 3).End(xlUp).Row
Cells(a + 1, 3) = [a1]
End Sub

şeklinde deneyin.

.

 

[Seyit Tiken]

Gerçi, arkadaşlar yanıtları vermişler. Buda biraz kısası.

Sub Düğme1_Tıklat()
[C65000].End(3).Offset(1) = [A1]
End Sub

 

[Volkan Öztürk]

Sevgili dostlar. Kodları uyguladım maalesef bi sonuç alamadım. Başka önerileriniz varsa rica edicem. Ek olarak ta farklı bi çalışma sayfasında ki bi hücreyi sütunun ilk boş satırına yapıştırsın istiyorum. Saygılar

 

[Necdet]

Sayın Volkan Öztürk,

Sevgili dostlar. Kodları uyguladım maalesef bi sonuç alamadım

demişsiniz, bence beceremediniz, yoksa arkadaşlarımın gönderdikleri kodlar şakır şakır çalışıyor.

Bence çalıştırma yöntemini öğrenin, yapamadığınız yerde sorun, yoksa şu sonuç çıkıyor, "ben sizin önerdiğiniz kodları uyguladım ama olmuyor, demekki yanlış şeyler söylüyorsunuz"

Bu da hoş bir şey değil bence

 

[kombo]

Kodları uyguladım maalesef bi sonuç alamadım. Başka önerileriniz varsa rica edicem.

3 adet öneri var ve üçüde gayet güzel çalışıyor.

Uygulamayı mı yapamadınız acaba?

 

[Volkan Öztürk]

Peki özür dilerim. Öyle bi anlam kastetmek asla istemedim ama öyle anlaşılmış. Tekrar özür dilerim. Şimdi üç kodu bir kez daha deniycem. İnşallah bu kez başarabilirim

 

[Volkan Öztürk]

Arkadaşlar özür diliyorum. evet uygulamayı ben yapamamışım. Şimdi oldu. Bilmenizi isterim asla mesajım sizlerin yaptıklarını kötülemek amaçlı değildi. Yanlış kelime seçimi sadece.

 

[kombo]

İkinci sorunuzun (Farklı çalışma sayfası) aynı kodlara uygulaması.

 

[isomikis]

yalnız arkadaşlar bilmiyorum farkettiniz mi? sizinkiler ilk boş hücreden başlamıyor C2 hücresinden başlıyor onun için de ben bir if ekliyorum bilmiyorum yanlış mı yapıyorum

If Cells(1, 3) = "" Then Cells(1, 3) = [a1]: Exit Sub
a = Cells(65536, 3).End(xlUp).Row
Cells(a + 1, 3) = [a1]

 

[Volkan Öztürk]

kombo ellerine sağlık. Ama yeter. Utandırdınız beni