merhaba uzaman abilerim çok kısa bir süre olmasına rağmen siteyi takip ediyorum ve çok beğendiğimi söyleyebilirim. burda insanların birbirlerine yardım etmesi çok güzel. benim 1. sorunum ise buton kullanmadan girdiğim hücredeki bir veriyi diğer sayfadaki hücreye aktarmak. bu bütün hücreler için gecerli. ekte yaptığım çalışmada buton var o butonu kullanmadan olacak bu iş. yardımlarınızı bekliyorum. lütfen göndereceğiniz dosyayaı mümkünse zip yardımıyla sıkıştırın. teşekkür ederim
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
hücredeki bilgilerin butonsuz taşınması..
- Konbuyu başlatan pcerdal
- Başlangıç tarihi
- Durum
Ayhan Ercan
Özel Üye
- Katılım
- 10 Ağustos 2005
- Mesajlar
- 1,573
- Excel Vers. ve Dili
- Microsoft 365- Türkçe
Merhaba Sayın pcerdal
Ek dosyayı inceleyiniz...
Ek dosyayı inceleyiniz...
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range, i As Long
i = 5
Set hcr = Sheet2.Range("b5")
Do
Sheet1.Cells(i, 2) = hcr.Value
i = i + 1
Set hcr = hcr.Offset(1, 0)
Loop While hcr.Value <> ""
Set hcr = Nothing
End Sub- Katılım
- 10 Mayıs 2007
- Mesajlar
- 1,395
- Excel Vers. ve Dili
- 2007 Türkçe
dosya döngüsel başvuru uyarısı veriyor ayhan hocam, bunun nedeni nedir acaba?
Ayhan Ercan
Özel Üye
- Katılım
- 10 Ağustos 2005
- Mesajlar
- 1,573
- Excel Vers. ve Dili
- Microsoft 365- Türkçe
Sayın hrknp, günaydın..
Bahsettiğiniz durum benimde dikkatimi çekti. Herhalde ilgili arkadaşın yollamış olduğu dosyada yapmış olduğu formüllerle ilgili olsa gerek.
Konu ile alakasını olmadığını düşünerek o döngüsel başvuru hatasını araştırmadım. Sorununa cevap bulmaya çalıştım sadece...
- Katılım
- 10 Mayıs 2007
- Mesajlar
- 1,395
- Excel Vers. ve Dili
- 2007 Türkçe
anladım ayhan bey teşekkür ederimAyhan Ercan
Özel Üye
- Katılım
- 10 Ağustos 2005
- Mesajlar
- 1,573
- Excel Vers. ve Dili
- Microsoft 365- Türkçe
Sizde Sağolun..şimdilik çok fazytdası olddu diyebilirim sağolun ...
İyi Çalışmalar...
k::Ayhan Ercan
Özel Üye
- Katılım
- 10 Ağustos 2005
- Mesajlar
- 1,573
- Excel Vers. ve Dili
- Microsoft 365- Türkçe
Problem nerde????
problem sanırım kırmızı olan yerde çünkü eğer ekteki dosyada farkettiyseniz çek listesindeki tarih yerine gönderenin adaını yazıyor...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range, i As Long
i = 5
Set hcr = Sheet2.Range("b5")
Do
Sheet1.Cells(i, 2) = hcr.Value
i = i + 1
Set hcr = hcr.Offset(1, 0)
Loop While hcr.Value <> ""
Set hcr = Nothing
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range, i As Long
i = 5
Set hcr = Sheet2.Range("b5")
Do
Sheet1.Cells(i, 2) = hcr.Value
i = i + 1
Set hcr = hcr.Offset(1, 0)
Loop While hcr.Value <> ""
Set hcr = Nothing
End Sub
yuppi yuppi teşekkürler Ayhan Ercan bey yaptım şimdi sıradaki görevim gönderdiğim ekte bulunan ilk sayfada ki kayıt kısmında en sonlarda Bulunan Açıklama Kısmına Şahsi Yazdığın zamn Aşağıdaki şahsi sayfasınıa Tahakkuk Yazdığım zaman Gümrük daireleri tahakkuk kısmına KKTC yazdığım zamn ise sözle beyaz kısmına gerekli sayfadaki bilgilerin aktarılması...
sayın hocam combo box işinide hallettim. şimdi yapmak istediğim, açıklamalar kısmına yani hücreyi combobox a çevirdiğim yere if koyacağım girdiğim verilere göre bilgilerim , Tahakkuk ve KKTC yazdığım zaman Gümrük daireleri tahakkuk kısmına şahsi yazdığım zamn ise gümrük daireleri(şahsi) kısmına gitmesini istiyorum kısmına gerekli sayfadaki bilgilerin aktarılması... bu nu yaptı ama sadece birinci satır için oldu yani diğer kayıta geçip onu okutamıyorum sürekli birinci satırdaki kayıt için islem yapıyor. birde sayın hocam eğer kodları yazarsanız yanınada kodların yaptıkları görevi yazarsanız öğrenmem açısından daha yararlı olur. şimdiden çok teşekkür ederim.
- Durum