Sub copyfiles()
'Updateby http://www.hardipdabhi.wordpress.com
Dim xRg As Range, xCell As Range
Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
Dim xSPathStr As Variant, xDPathStr As Variant
Dim xVal As String
On Error Resume Next
Set xRg = Application.InputBox("Please select the file names:", "www.hardipdabhi.wordpress.com", ActiveWindow.RangeSelection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xSFileDlg.Title = "Please select the original folder:"
If xSFileDlg.Show <> -1 Then Exit Sub
xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xDFileDlg.Title = "Please select the destination folder:"
If xDFileDlg.Show <> -1 Then Exit Sub
xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
For Each xCell In xRg
xVal = xCell.Value
If TypeName(xVal) = "String" And xVal <> "" Then
FileCopy xSPathStr & xVal, xDPathStr & xVal
End If
Next
End Sub
Blood Bank Instruments Blood banks play a crucial role in healthcare by collecting, testing, processing, and storing blood and its components. To ensure efficiency and safety, various instruments and equipment are used in blood banks. Here’s a list of some key blood bank instruments and their uses: 1. Blood Collection Monitors These devices ensure a safe and efficient blood collection process . They monitor the volume of blood collected and the collection time, ensuring that the donation is stopped at the right moment to avoid over-collection. 2. Blood Mixers Blood mixers are used during blood collection to ensure that the blood anticoagulant solution is thoroughly mixed with the donated blood, preventing clotting. 3. Blood Bag Tube Sealers These devices are used to seal the tubing of blood bags after collection . They use radiofrequency or heat to create a strong, leak-proof seal, ensuring the sterility of the collected blood. 4. Ce...
Comments
Post a Comment
अपनी राय और सवाल यहाँ शेयर करें! कृपया अपने कमेंट्स में फालतू के स्पैम लिंक्स न डालें। आपके कीमती सुझावों का हमेशा स्वागत है।