umitumit
Altın Üye
- Katılım
- 5 Eylül 2006
- Mesajlar
- 364
- Excel Vers. ve Dili
-
Excel 2016
Türkçe
- Altın Üyelik Bitiş Tarihi
- 13-07-2028
Sorumu Ekteki Dosyada Daha Açık Olarak Belirttim.
User Form a Girdiğim İlk Değeri F Sütununda Arayıp Bulacak Ve
Diğer Değerleri Bulduğu Satırın İlgili Hücrelerine Yazacak Bir Macro İstiyorum.
Başka Bir Macrodan Uyarlama Yaparak birşeyler yaptım ama şimdide user form ile girilen değerleri rakam olarak görmüyor.
bu nedenle en basit formüller bile çalışmıyor.
benim yazdığım macro aşağıda;
Yardım Edecek Arkadaşlara Şimdiden Teşekkürler
Private Sub CommandButton2_Click()
Dim bul As Range
Application.Calculation = xlManual
ActiveWorkbook.PrecisionAsDisplayed = False
For Each bul In Worksheets("SİPARİŞ-SEVKİYAT").Range("f:f")
If bul = TextBox36.Text Then
bul.Offset(0, 9).Activate
With bul
For i = 1 To 35
.Offset(0, i + 8) = Controls("TextBox" & i)
Next i
End With
End If
Next
Unload Me
Application.Calculation = xlAutomatic
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub
MACROYU hallettim ama şimdide başka bir derdim çıktı ortaya
User Form ile girilen değerleri rakam olarak görmüyor.
en basit bir toplama bile yapılamıyor.
yardım lütfeeennnn....
User Form a Girdiğim İlk Değeri F Sütununda Arayıp Bulacak Ve
Diğer Değerleri Bulduğu Satırın İlgili Hücrelerine Yazacak Bir Macro İstiyorum.
Başka Bir Macrodan Uyarlama Yaparak birşeyler yaptım ama şimdide user form ile girilen değerleri rakam olarak görmüyor.
bu nedenle en basit formüller bile çalışmıyor.
benim yazdığım macro aşağıda;
Yardım Edecek Arkadaşlara Şimdiden Teşekkürler
Private Sub CommandButton2_Click()
Dim bul As Range
Application.Calculation = xlManual
ActiveWorkbook.PrecisionAsDisplayed = False
For Each bul In Worksheets("SİPARİŞ-SEVKİYAT").Range("f:f")
If bul = TextBox36.Text Then
bul.Offset(0, 9).Activate
With bul
For i = 1 To 35
.Offset(0, i + 8) = Controls("TextBox" & i)
Next i
End With
End If
Next
Unload Me
Application.Calculation = xlAutomatic
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub
MACROYU hallettim ama şimdide başka bir derdim çıktı ortaya
User Form ile girilen değerleri rakam olarak görmüyor.
en basit bir toplama bile yapılamıyor.
yardım lütfeeennnn....
Son düzenleme: