Makro kodları userformda çalışmama durumu

[NADİR YILDIZ]

Arkadaşlar günaydın
Makro kodlarının userformda çalışmama durumu olabilir mi
aynı işlem için tek bir butonda kullandığım makro kodunda sonuç alırken
userform içine eklediğim butona aynı makro kodunu eklediğim halde sonuç alamıyorum
tek butonla userformdaki butondan kaynaklı böyle bir durum olabilir mi

teşekkürler

 

[YUSUF44]

Userformda makroyu tetikleyen nesne ya da olay hatalı ya da farklı olabilir ya da kodlardan işlemlerin yapılacağı yerler doğru belirtilmemiş olabilir (örneğin A sayfası açıkken makroyu çalıştırıyor olabilirsiniz ama userform B sayfası açıkken aktifse sorun olabilir).

Sorun çözülmezse dosya paylaşmanızı tavsiye ederim.

 

[NADİR YILDIZ]

sayın yusuf
bendeki kodları sildim siz ekleme yapabilir misiniz
Fatura listesi sayfasında Kontrol paneli butonu ile açtığım userformda işlenenleri interaktife aktar butonuna bastığımda
Y6 dan AF 5000 arasındaki verileri
interaktif vd sayfasında N7 den U 5000 alanına aktarmasını istiyorum.

teşekkürler

 

[YUSUF44]

32 bite göre hazırlanmış, 64 bit kullandığımdan dosyayı çalıştıramadım maalesef. Ptrsafe ekleyince çalıştı ama bu sefer de Kontrol Paneli düğmesine basınca Modüle1'deki Public Sub SubClass kodlarında AddressOf kısmında hata verdi. O kodları pasiflediğimde bu sefer başka bir yerde hata verdi.

Kısacası hatalar nedeniyle dosyanızı inceleyemedim maalesef.

Ancak bahsettiğiniz

Y6 dan AF 5000 arasındaki verileri
interaktif vd sayfasında N7 den U 5000 alanına aktarmasını istiyorum.

işleminin kod karşılığı aşağıdaki satırdır:

Sheets("FATURA LİSTESİ").[Y6:AF5000].Copy Sheets("İNTERAKTİF VD").[N7]

Ancak çok fazla kod ve userformun olduğu bir dosyayı hazırlayabildiğinize göre bu sorunun bu kadar basit olmadığını düşünüyorum.

 

[NADİR YILDIZ]

evet yusuf bey bu kadar basit değil
şurayı atladım özür dilerim

bu bir seferlik bir aktarma olmayacak
bu aktarılanların altına devamlı aktarım olacak o zaman durum karmaşık bir hal alıyor haliyle

teşekkürler & iyi çalışmalar

 

[YUSUF44]

Yani N sütunundaki ilk boş satıra mı aktarılacak? Eğer öyleyse o da karmaşık bir işlem değil. İlk boş hücreyi bulmanız da zor değildir sizin için.

İşi karmaşıklaştıran şey tam olarak nedir?

 

[NADİR YILDIZ]

şöyle anlatayım yusuf bey

Fatura listesi sayfasında ki kontrol paneli butonuna bastığımda
açılan userformda işlenenleri interaktife aktar butonuna basarak fatura listesi sayfasındaki Y6 dan AF7000 alanını
interaktif vd sayfasında N7 den U7000 alanına aktarmak istiyorum
buraya bir sefer aktarmak kolay
ancak devamlı fatura listesi sayfasından aktarım yapacağım için
yeni aktaracakları interaktif vd. sayfasına daha önce aktarılanların altına aktarmasını istiyorum..
yani kısacası ft listesinden her aktarımda int.vd. sayfasının altına aktarsın

teşekkürler

 

[YUSUF44]

Yani N sütunundaki ilk boş satıra aktarılacak diye anlıyorum. Öyleyse şöyle olmalı:

yeni = Sheets("İNTERAKTİF VD").Cells(Rows.Count, "N").End(3).Row + 1
Sheets("FATURA LİSTESİ").[Y6:AF5000].Copy Sheets("İNTERAKTİF VD").Cells(yeni, "N")

 

[NADİR YILDIZ]

yusuf bey şöyle bir hata veriyor

 

[YUSUF44]

Muhtemelen tanımlama hatasıdır. Öncesinde

Dim yeni as integer

diye tanım satırı ekleyin.

 

[NADİR YILDIZ]

evet yusuf bey ondan kaynaklı

teşekkür ediyorum

iyi çalışmalar