ARA BUL aktar.

[bilalakdeniz]

Veri girişindeki fatura numarasını yazdığımda sıra numarasını nasıl bulurum. ara formülüyle olmuyor makroyla yapmak ve enter e bastığımda sıra numarasını bulmasını istiyorum.ve sıra numarasına göre diğer verileri aratırım, ve Giriş sayfasındaki #YOK hata mesajlarını nasıl kaybedebilirim. birde bu dosyanın çok fazla kasılmaması için yapabileceğim birşey varmı. Başka bir excel de firma bilgilerim var ve bu kosyam kapalıyken diğer dosydan firma bilgilerini aktarabilirmiyim. Kolay gelsin

 

[serkanhabis]

Private Sub CommandButton1_Click()

Dim j As Integer
Dim str1 As String
Dim str2 As String
Dim str3 As String


str1 = Sayfa3/fatura sayfası/.Cells(2, 28)




j = 2
Do While j <= 100
str2 = Sayfa8/veri sayfası/.Cells(j, 13)
str3 = Sayfa8/veri sayfası/.Cells(j, 2)
If str1 = str2 Then
Sayfa3/fatura sayfası/.Cells(4, 28) = str3
Else
If str2 = "" Then
Exit Do
End If

End If
j = j + 1
Loop


MsgBox ("işlem tamamlandı")
End Sub

 

[bilalakdeniz]

tşk ederim ama dosyaya uyarlayamadım.